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ABSTRACT 

A  transient  three-dimensional  heat  conduction  code  was  devel- 
oped using  finite  differences.  A  stability  restriction  on  the  time  step 
was  avoided  using  a  technique  proposed  by  Brian.  Computations  from 
the  code  were  validated  using  both  the  explicit  technique  and  an 
available  closed-form  solution  for  small  times.  The  maximum  error  was 
found  to  be  within  0.019  percent  for  an  llxllxll  grid  and  time 
step  of  17.117  seconds.  The  total  CPU  time  to  carry  out  the  computa- 
tions up  to  3,600  seconds  using  Brian's  technique  was  six  times  that 
required  for  the  explicit  technique  with  the  same  time  step  of  17.117 
seconds.  However,  as  the  time  step  was  increased  without  altering  the 
geometry,  the  CPU  time  using  Brian's  technique  decreased  and  was 
less  than  that  used  in  the  explicit  technique  for  time  steps  larger  than 
110  seconds.  The  validated  code  was  also  used  in  the  analysis  of  the 
transient  thermal  response  of  a  component  on  an  orbiting  spacecraft. 
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THESIS  DISCLAIMER 

The  reader  is  cautioned  that  computer  programs  developed  in 
this  research  may  not  have  been  exercised  for  all  cases  of  interest. 
While  every  effort  has  been  made,  within  the  time  available,  to  ensure 
that  the  programs  are  free  of  computational  and  logic  errors,  they 
cannot  be  considered  validated.  Any  application  of  these  programs 
without  additional  verification  is  at  the  risk  of  the  user. 
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I.  INTRODUCTION 

A.   STATEMENT  OF  PROBLEM 

Three-dimensional  transient  heat  conduction  computations 
involving  finite  difference  techniques  can  be  costly  and  time  consum- 
ing. In  the  explicit  technique,  there  is  a  maximum  time  increment 
that  can  be  used  before  the  solution  becomes  unstable  [Ref.  1].  This 
time  increment  results  from  an  upper  limit  on  the  allowable  values  of 
the  Fourier  number  [Ref.  2].  The  implicit  technique,  on  the  other 
hand,  requires  more  complicated  computations  than  the  explicit 
technique  due  to  matrix  inversion  operations  [Ref.  2].  Even  the  stor- 
age capability  of  a  modern  computer  can  be  taxed  when  dealing  with 
storage  and  manipulation  of  very  large  matrices  [Ref.  3].  Both  the 
explicit  and  implicit  techniques  can  become  expensive  when  a  large 
number  of  nodes  is  required  [Ref.  4j. 

For  two-dimensional  transients,  an  alternative  technique  is  the 
alternating  direction  implicit  (ADI)  method.  Calculations  at  each  time 
step  require  only  the  handling  of  tridiagonal  matrices  [Ref.  5].  A 
direct  extension  of  the  ADI  technique  to  three-dimensional  problems, 
however,  has  been  found  to  have  only  conditional  stability  [Ref.  5].  A 
different  algorithm  by  Brian  is  unconditionally  stable  and  still  requires 
the  handling  of  only  tridiagonal  system  of  equations,  thus  avoiding  the 
more  complex  matrix  manipulation  of  the  implicit  approach  [Ref.  3]. 


B.      OBJECTIVES 

The  objectives  of  this  study  were: 

1.  To  develop  a  FORTRAN  computer  program  employing  Brian's 
technique  for  three-dimensional  transient  heat  conduction. 

2.  To  validate  the  FORTRAN  computer  program  using  the  explicit 
technique  with  identical  geometric  configuration,  boundary,  and 
initial  conditions.  Comparisons  with  closed-form  solutions  avail- 
able for  a  semi-infinite  geometry  were  also  made. 

3.  To  employ  the  above  technique  in  the  application  of  temperature 
computations  involving  an  orbiting  satellite. 

This  study  was  also  intended  to  be  a  basis  for  future  satellite  heat 
transfer  analysis  and  computations  involved  with  Project  Orion,  the 
Naval  Postgraduate  School's  multi-disciplinary  space  research 
program. 

All  objectives  were  achieved. 


II.   DEVELOPMENT  OF  MODEL 

A.   MODEL  CONDITIONS 

The  model  is  a  three-dimensional  rectangular  block  with  geomet- 
ric dimensions  expressed  in  Cartesian  coordinates.  A  numerical  tem- 
perature solution  only  permits  the  determination  of  the  temperature 
distribution  at  discrete  points  or  nodes  [Ref.  2] .  The  method  of  finite 
differences  requires  that  a  nodal  equation  be  written  for  each  node  in 
the  block.  The  number  of  nodes  in  any  coordinate  direction  is  based 
on  the  distance  increment  in  the  same  direction. 

The  nodal  temperature  equation  for  each  node  was  obtained  using 
a  conservation  of  energy  equation  within  a  control  volume.  Incopeia 
and  DeWitt  [Ref.  2]  present  the  general  form  of  the  conservation  of 
energy  equation  as 

^IN  ~  ^OUT    +  ^GEN   =  ^ST  (1) 

The  nodal  temperature  equations  were  developed  using  equation  1.  In 
the  following  sections,  an  equation  for  a  node  on  the  left  surface  of  the 
rectangular  block  away  from  corners  and  edges  is  derived  for  both  the 
explicit  and  Brian  techniques.  Equations  for  all  other  nodes  are 
derived  in  an  identical  fashion.  The  explicit  technique  equations  are 
tabulated  in  Appendix  A  and  the  Brian  technique  equations  are  tabu- 
lated in  Appendix  B. 


B.      EXPLICIT  TECHNIQUE 

1.      Derivation  of  Nodal  Temperature  Equations 

Figure  1  shows  the  left  surface  of  the  rectangular  block  with 
associated  boundary  conditions.  Equation  1  is  rewritten  assuming  that 
all  the  energy  components  are  into  the  control  volume  as 


EIN+EGEN=EST  (2) 


where  the  energy  generation  term  is  assumed  to  be  zero. 

Using  finite  difference  notation,  the  energy  storage  term  is 


Ay 
E^pCAx— Az 


i.j.k  ~   l  i.j.k 
I  At  J 


(3) 


The  energy  inflow  term,  EIN,  is,  in  general,  composed  of  convection, 
conduction,  radiation,  and  imposed  heat  flux  terms.  For  the  develop- 
ment of  the  explicit  technique,  the  radiation  term  was  neglected.  In 
the  explicit  technique,  all  involved  nodal  temperatures  on  the  left  side 
of  equation  2  are  evaluated  at  the  prior  time  step.  The  convection 
term  is  thus 


ECONV=hAxAz(T.-T"Jk) 


(4) 


Too,  h 


i-l.J.k 


-►  y 


Figure  1.    Left  Surface  of  Rectangular  Block  Used  in  the  Model 

The  net  conduction  term  will  have  contributions  from  all  three  coor- 
dinate directions  and  is 


E  -  kAyAz     |-1'J-k  +  Tm-j*~  Zll^:   .  kAxAz     1J+lk"     iJk 

^coND-k2AZ  Ax  +  KAxAz  Ay 


+  kAx 


Ay  Ti.j.k-i  +Ti.j.k+i  ~2Ti.j.k 
~2  Az 


(5) 


The  flux  term  will  be 


EF^ux=q,'AxAz 


(6) 


Substituting  equations  3  through  6  into  equation  2  produces 


1     ^   a      Ti-l.J.k+T'+l.J.fc        2TiJ.k    l  .    .       .      Ti.J+l.k       Ti.j.k 

k-^—Az r +  kAxAz t 

2  Ax  Ay 

+  kAx-^-^ £ +  kAxz(T„-T1J>k)  (7) 


Ay 

+  q"Axz  =  pCAx-^-Az 


1  i.j.k  ~~   A  t.j.k 

v       At       ; 


The    temperature    at    the    next    time    level,    n+1,    is    next 
expressed  in  terms  of  temperatures  at  the  previous  time  level,  n.  To 

accomplish  this,  terms  in  equation  7  are  rearranged. 

Ax 
Multiplying  each  term  in  equation  7  by  yields 

2(Ti-i.j.k  +Ti+i.j.k  ~2Ti.j.k)  +  [~Ay  J  (Tt.j+i.k~Ti.j.k) 


2 
2 


(8) 


+  ^Axf(T.-Tr,k)+q"^=^Ax^(T:-'t-T;,k) 


Equation  8  is  simplified  using  Biot  and  Fourier  numbers, 
which   are   written   as    ll^x    and  2  ,    respectively.    The    terms 

2  2  2  ± 

(-r— j  ,   (—}  ,  and  f-r—  ]    are  identified  as  Ri,  R2,  and  R*.   respec- 
tively. Equation  8  now  becomes 


2  CTt-i.j.k  +Ti+i.j.k     2T1JkJ  +R^T1J+lk     TljkJ 

+  iR2(T"Jk_1+T:jktl-2T"Jk)  (9) 

+  B1R |(T. - T?,k)  +  q"R,^-  =  ^(T-  - T°,J 

Rearranging  terms,   the   temperature   at   the   current  time   level   is 
expressed  as 

-C  =  T»  ,k  +  F0(T^jik  +  T:+1Jik  -  2T^k)  +  2F  .R^T^  -  T^k) 

+  2F0R2(T:jk_1+T:jk+1-2T:jk)  (10) 

+  2F0B1R[(T.-T"Jik)  +2F0Riq"^ 

In  a  similar  manner,  the  temperature  equations  for  each  node 
are  derived. 

2.     Restrictions  on  Time  Step  in  the  Explicit  Technique 

In   the   derivation   of  the   explicit  technique   equations,   the 
Fourier  number  was  expressed  as 

kAt 
pCAx2  (ID 


Fo  = 


The  stability  of  the  temperature  solution  is  dependent  on  the  time 
increment  [Ref.  2].  Rearranging  equation  10  to  isolate  the  node  of 
interest  at  both  the  current  and  previous  time  levels  yields 


T^L  =  Fo(T:_lijik  +  T:+1Jk)  +  2FoR  /T^,  +  FoRa(T^w  +1^  k+1) 

+  2FoB1R;T.  +  2FoR1q^  {12) 

+  (l  -  2Fo  -  2FoR  ,  -  2FoR2  -  2FoBiR  'Jt^  k 

The  coefficient  associated  with  the  previous  time  level  at  the 
node  of  interest  must  be  greater  than  or  equal  to  zero  [Ref.  2].  This 
implies 


l+Rj  +  R^BiRjJ^O 


Rearranging  terms,  it  follow  that,  for  stability, 

i 
Fo  < 


Rj+R2+BiRj  '  (14) 


Limitations  on  Fo  were  derived  for  each  different  node.  The  maximum 
allowable  Fo  was  chosen  as  the  least  of  all  these  values.  Since  the 
Fourier  number  is  dependent  on  At,  Ax,  and  material  properties,  it 
follows  from  equation  1 1  that  the  maximum  time  increment  will  be 
dependent  on  the  distance  increment.  As  Ax  decreases,  the  maximum 
time  increment  must  also  decrease  to  have  equation  14  hold  true 
[Ref.  1]. 
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3.      Numerical  Calculations 

A  computer  program  (program  EXPLICIT)  was  written  to 
evaluate  the  transient  temperature  distribution  within  the  block  using 
the  explicit  technique.  Figure  2  is  a  flow-chart  description  of  the 
program.  A  complete  listing  of  program  EXPLICIT  is  provided  in 
Appendix  C. 

C.     BRIAN'S  TECHNIQUE 

The  Brian  technique  provides  unconditional  stability,  allowing 
large  time  increments  for  transient  three-dimensional  computations 
[Ref.  3].  As  mentioned  earlier,  the  explicit  and  fully  implicit  tech- 
niques may  become  unsuitable  for  computations  involving  a  large  num- 
ber of  nodes  or  long  transient  times.  The  explicit  technique  relies  on 
small  time  increments  for  stability,  thus  increasing  the  amount  of 
computer  time  required  for  calculations  [Ref.  5].  The  implicit  tech- 
nique requires  inverting  large  matrices  that  may  create  problems  with 
storage  capability  and  computer  time  [Ref.  4], 

Another  possible  technique,  the  alternating  direction  implicit 
(ADI),  is  applicable  to  both  two-  and  three-dimensional  problems. 
While  the  ADI  method  is  unconditionally  stable  for  two-dimensional 
cases,  instability  occurs  for  large  time  increments  in  three-dimen- 
sional problems  [Refs.  4,  5]. 

The  Brian  technique  modifies  the  ADI  method  to  provide  uncon- 
ditional stability  and  minimize  computer  time  [Ref.  3]. 


Enter  Parameters: 

•  Material  Properties 

•  Geometric  Dimensions 

•  Other  Constants 

i> 
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•  Time 
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Figure  2.    Flow  Chart  for  Program  EXPLICIT 
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1.      Derivation  of  Nodal  Temperature  Equations 

Figure  1  shows  the  left  surface  of  the  rectangular  block  with 
associated  boundary  conditions.  Equation  2  is  again  the  starting  point 
for  nodal  temperature  equation  derivation  and  is 

EIN+  EGEN   =EST  (2) 

where  the  energy  generation  term  is  again  assumed  to  be  zero. 

The  nodal  temperature  equation  derivation  for  Brian's  tech- 
nique uses  half-time  steps  for  each  coordinate  direction.  This  differs 
from  the  explicit  technique,  in  which  a  whole-time  increment  is  used 
and  spatial  coordinate  direction  is  not  considered. 

In  Brian's  technique,  the  first  half-time  level,    n  +  \ ,  treats 

temperatures  in  the  x  direction  as  unknown  with  temperatures  in  the 
y  and  z  directions  known  from  the  previous  time  level,  n.  Solving  a 
tridiagonal  system  of  simultaneous  equations,  the  temperatures  at  the 
n  +  \  level  are  determined. 

Temperatures  in  the  y  direction  are  then  determined  using 
x-direction  temperatures  at  the  n  +  \  time  level  and  z-direction  tem- 
peratures at  the  M  time  level.  Similarly,  temperatures  in  the 
z-direction  at  the  current  n+1  time  level  are  determined  using  n  +  \ 

temperatures  from  the  x  and  y  directions. 

The  above  procedure  is  demonstrated  for  a  node  on  the  left 
surface  away  from  corners  and  edges. 
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The  energy  storage  term  is 


Ay 
EST  =  pCAx— Az 


n+i  >\ 

1  i.j.k  ~  L  i.j.k 

At 
2 


(15) 


The  energy  inflow  term,  EIN,  is  composed  of  convection,  conduction, 
radiation,  and  any  imposed  external  heat  fluxes.  As  a  first  step,  only 
the  nodal  temperatures  associated  with  heat  conduction  and  energy 
storage  in  the  x-direction  are  evaluated  at  the  n  +  \   time  level.  The 

convection  term  is  thus 

Econv  =hAxAz(T„-T"jk)  (16) 

The  net  conduction  term  will  have  contributions  from  all  three  coor- 
dinate directions  and  is 

i  i  i 

n+—  n+T  n+T 

T.    "     +T     '  ,  -2T.    *  Tn.  ,,  -Tn 


.                  Ay        L  i-i.j,k+  l  i+ij.k     z  1  i.j.k      ,             x  i.j+i.k      1  i.j.k 
E  coND  =  k"2~ Az s +  kAxAz — 

Ay  Ti.j.k-i  +Ti.j.k+i  ~2Ti.j.k 


(17) 


+  kAx- 


Az 
The  radiation  term,  assuming  extensive  surroundings,  will  be 

ERAD  =  aeAxAz(Tl-T^>k) 


(18) 


For  applications  involving  an  orbiting  spacecraft,  additional  input  flux 
terms  need  to  be  considered.  These  include  the  solar  flux,  the 
infrared  emission  from  the  earth,  and  the  reflected  component  of  the 
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solar  flux  from  the  earth's  atmosphere,  the  albedo.  The  solar  flux  term 
will  be 

Esolar  =AxAzaCSA(J)s  (19) 

The  reflected  solar  flux  (albedo)  term  will  be 

E  albedo  =AxAzFAaa(J)s  (20) 

The  earth  flux  term  will  be 

EEARra  =  AxAzFEe(J)E  (21) 

The  imposed  heat  flux  term  will  be 

E^ux  =AxAzq"  (22) 

Substituting  equations  (15)  through  (22)  into  equation  2  yields 

n+-  n+-  n+- 

Ay        L  i-i.j.k  +  *  i+i.j.k  ~  z  L  t.j.k  *  i.j+i.k  ~  l  i.j.k 

k-=—  Az : h  kAxAz 


2  Ax  Ay 


Ay  1  i.j.k-i  +  i  i.j.k+1     z  i  i.j.k 
+  kAx-^-— ^ —  +  oeAxAz^T.-  T, 


+  AxAzaC^(})s  +  AxAzFA  aa(J)s  +  AxAzFEe(J)E  +  AxAzq" 


Ay       a  ,.j.k~  x  i.j.k 


+  hAxAz(T.-T"Jk)  =pCAx^-Az 


2  At 


(23) 
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The  temperatures  at  time  level   n  +  7   are  next  expressed  in 
terms  of  temperatures  at  the  previous  time  level,  n.  To  accomplish 

this,  terms  in  equation  23  are  rearranged. 

Ax 
Multiplying  each  term  in  equation  23  by  yields 


2^  t-l.j.k  + 


n+2  n+2N)       fAX^f/      n  n       \ 

Ti+i.j,k  _  2Ti.j.kJ  +  (^Ay"J  (Ti.j+i.k"Ti,j.k) 


)  (T^,  +T",k+1  -2T^k)  +  ^£Mt1  -T";k) 


+  2Iaz  J  (T'-J.k-i  "*"  x  i.j.k+i     ^1ij.kjT    kAy 
aC  _.  Ax2  aF,  aAx2  F„  eAx2  A Y2 

+  ^^s+^A^s  +  i^>E  +  ^q"  (24) 

.    hAx2     ,,     hAx2  (T    _Tn     v  _2pCAx2f    °+j        n 
kAy    q        kAy    Vx~      *  VJ-V  "      2kAt     V1  »J.*     x  u-k 


Equation  24  is  simplified  using  Biot  and  Fourier  numbers, 
which  are  written  as   T~Ax   and  2  ,  respectively.  Equation  24 

now  becomes 


2^Ti-i.j.k +  Ti+i.j.k     ^Tj  jkJ  +  Rj(T1J+1  k    Tljkj 

+  iR2  (T^M  +  T^k41  -  2T^k)  +  f-R^Ti-  <k) 

aC^RiAY,        ^A^/y,        ^eR^y  (25) 

+ C «>s  + C 4>s  + E <t>E 


1 

n+s- 


+  ^  q"+  B,  R|(T.  -T,"Jk)  =  ^  [T;:  -  T°wk 


14 


Rearranging  terms,  the  temperatures  at  the  first  half-time  step  level 
in  the  x  direction  are 


n+—  n+—  n+— 


+  2FoR1(T"j+1  k  -  T"0  k)  +  FoR2  (T^  k_,  +  T°j>k+1  -  2T°jk) 

<*C_A  aF.  a  F.,6  fofi) 

+  2FoR1-1^(J)s+2FoR1Ay-^— <t)s  +  2FoR1Ay^(j)E         lZDJ 


+  2FoR1Ay  +  ^  +  2FoBi  R'(T.-T^k) 


The  next  step  is  to  express  the  temperatures  in  the  y-direc- 
tion  at  time  level  n  +  j  using  x-direction  temperatures  determined  at 
time  level    n  +  %    from  equation  26  and  z-direction  temperatures  at 

time  level  n.  For  greater  clarity,  the  x-direction  temperatures  at  time 

i 

1  n+  — 

level  n  +  7,  T    2 ,  are  rewritten  as  T*.  Equation  26  now  becomes 

-FoT,*,.,.  +(l+2Fo)T*j.k    -FoT*1Jt    =T°Jflk 

+  2FoR1(T"jtlk-T"Jt)+FoR2(T"Jk_1  +  T;)t+1-2T;jk) 

fvp/    4        n4   \  aC„.  aF.  a  f27) 

+  2FoR1Ay^T„-TtJkJ  +  2FoR1Ay-1^({)s  +  2FoR1Ay-1^<Ds 

+  2FoR1Ay^(|)E-f2FoR1Ay^  +  2FoBi  R*  (T„ -T"Jk) 

The  derivation  for  the  y-direction  nodal  temperature  equation  is  simi- 
lar to  the  x-direction  derivation.  The  y-direction  equation  for  the  same 
node  is 
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2  _,__._  2 


(l+2F0RJ)T,j;-2F0R1T1Jtll  =  T1Jk 

+  Fo(T*..j.k  +T,«.,k  -2T*,k  )+FoR2(T°J,t.I+T°J,ktl-2T°lk) 


T-n*     ^    ,    or.   n     a    .  SA 


+  2Fo  R,  Ay^Tl  -  T^j  4-  2Fo  R^y-^  ^ 

aF.a  F„e  ro«) 

+  2FoR1Ay-1^<l)s  +  2FoR1Ay-^(i)E  lZO' 

q"  - 

+  2FoRjAy^  +  2FoBi  R*  (T„  -T°jik) 


i         ■** 


The  y-direction  temperatures  at  time  level   n  +  7 ,   T       ,  are  rewritten 
as  T**.  Equation  28  now  becomes 

(l  +  2FoRl)Tt;k  -2FoR1T-1,k=T"Jk+  Fo(T*1Jk  +  T*+1Jk  -2T*JJt  ) 

+  FoR2(T1nlk_1  +T1n,k+1  -2T,n,k)  +2Fo  R^y^Tl  -  T^) 

aC^  aF.a  FEe  (29) 

+  2FoR1Ay-F-<{)s+2FoR1Ay^^(|)s  +  2FoR1Ay-ir<})E 

+  2Fo  Rj  Ay  y  +  2FoBi  R^(  T.  -  T  ^  k) 

The  expression  for  the  z-direction  temperatures  at  time  level 
n+1  is  dependent  on  the  x-direction  and  y-direction  temperatures  at 
time  level  n  +  \ ,  T*  and  T**,  respectively.  The  z-direction  nodal  tem- 
perature equation  is 
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,n+l  /,         -.  -r~.    -r-,     x  ~,n+l         ,-,    ■—.     ^y,n+l 


-  foR.t,;;.,  +  (i  +2For2)t;j7„  -  forj-  = 

T:.^  +*»(t"**  +Tl>,.*  -2T,V)  +  2FoR1(T*;,.k  -  T*;t  ) 

+  2FoR1Ay^(Tl  -  T£;„  ) +  2FoR1Ar^-<|.s 

ocF.  a  F„e  r^o) 

+  2FoR1Ay-^-(|)s  +  2FoR1Ay-^-())E  lt3UJ 

+  2FoR1Ay^  +  2FoBiRJ(T„   -  T*^  ) 

In  a  similar  manner,  the  temperature  equations  for  each  node 
are  derived.  We  note  that  during  traverse  along  each  coordinate  direc- 
tion in  equations  26,  28,  and  30,  a  tridiagonal  matrix  results  for  the 
solution  of  temperature. 

2.     Solution  of  the  Nodal  Temperature  Equations 

The  x-direction  nodal  temperature  equations  for  the  rectan- 
gular block  are  of  the  form 


Alt,J.kTf-l.J.k     +Bll.J.kTi*.k     +Cli.j.kT*i.j.k     =  Dll.j.l 


(31) 


where  the  coefficients    Ai1Jk,  ...,  Di    k  are  known  from  the  previous 

time  step. 

Each  row  of  T*  equations  parallel  to  the  x-axis  is  a  tridiagonal 
matrix  of  coefficients  Ai    k,  BitJk,  and  Ci1Jk.  It  was  solved  using  the 

standard  Tridiagonal  Matrix  Algorithm  (TDMA)  [Ref.  5].  After  each  row 
of  T*  equations  is  solved,  the  y-direction  equations  will  be  solved  [Ref. 
3].  These  are  of  the  type 
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A».j.kT!j!i.k    +   B»y.kT*S    +    C2iJkT-k    =  D2jjk  (32) 

As  in  the  x-direction  case,  each  row  of  T**  equations  parallel  to  the 
y-axis  is  solved  using  a  tridiagonal  matrix  solver.  The  z-direction  equa- 
tions are  of  the  form 


A3i.j.kTi.j.k-i  +  B3i.j.kTi.j.k  +  C3i.j.kTi.j.k+i  -  D3i.j.i 


(33) 


The  solution  of  the  Tn      equations  is  accomplished  in  a  similar  man- 
ner as  used  for  both  the  x-  and  y-directions  [Ref.  3]. 
3.      Numerical  Calculations 

A  computer  program  (program  (BRIAN)  was  written  to  evalu- 
ate the  transient  temperature  distribution  within  the  block  using  the 
Brian  technique  outlined  in  the  previous  sections.  Figure  3  is  a  flow 
chart  description  of  the  program.  A  complete  listing  of  program 
BRIAN  is  provided  in  Appendix  D. 
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Figure  3.    Flow  Chart  for  Program  BRIAN 
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III.     VALIDATION 

A.      SELECTED  GEOMETRY  AND  CONDITIONS 

Both  the  Brian's  technique  and  explicit  technique  programs 
required  validation  to  ensure  accuracy  in  the  temperature  solutions. 
Identical  geometric  and  boundary  conditions  were  used  for  these 
techniques  in  the  validations.  The  left  face  had  a  constant  surface  heat 
flux  with  all  other  surfaces  treated  as  adiabatic.  Figure  4  shows  the 
geometric  and  boundary  conditions  for  the  validation  model.  Table  1 
lists  the  parameters  used  in  the  validation  runs. 

The  Brian's  technique  and  explicit  technique  programs  were 
written  to  allow  the  user  to  conduct  a  validation  test.  The  test  involved 
taking  the  temperature  differences  at  identical  nodes  in  each  program 
and  then  comparing  each  node's  temperature  difference  on  a  graph. 

The  finite  difference  solutions  for  the  rectangular  block  were  also 
compared  with  an  analytical  solution  for  a  semi-infinite  solid  exposed 
to  a  uniform  flux  at  its  surface.  The  closed-form  solution  would  be  a 
reasonable  approximation  to  the  actual  solution  for  small  times  when 
interior  nodes  are  not  influenced  by  the  lateral  boundary  surfaces  of 
the  rectangular  block  [Ref.  2]. 

Incropera  and  DeWitt  [Ref.  2]  tabulated  the  closed-form  solution 
for  the  case  of  constant  surface  heat  flux  in  terms  of  complementary 
error  functions.  These  were  evaluated  in  the  present  study  based  on 
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X 

Figure  4.   Rectangular  Model  Showing  Boundary  Conditions 

Used  in  Validation  Runs 

TABLE  1 
PARAMETERS  USED  IN  VALIDATION  RUNS 


Left  face  flux 

1,500  W/m2 

Other  faces 

0  W/m2  (adiabatic) 

Material  density 

2,770  kg/m3 

Thermal  conductivity 

177  W/m-K 

Specific  Heat 

875  J/kg-K 

Initial  Temperature 

275K 

Ambient  Temperature 

295  K 

Distances  from  face 

1.0,  0.4,  0.0  m 

the  polynomial  approximations  provided  by  Abramowitz  and  Stegun 
[Ref.  5]. 
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B.      NUMERICAL  COMPUTATIONS 

A  computer  program  was  written  to  evaluate  the  closed-form 
solution  for  a  semi-infinite  solid  with  a  constant  surface  heat  flux.  The 
fifth-order  polynomial  approximations  to  the  complementary  error 
function  have  an  error  less  than  1.5  x  10-7  [Ref.  5]. 

Figure  5  is  a  flow-chart  description  of  the  closed-form  solution 
program  VALID.  The  parameters  entered  are  identical  to  those  used  in 
programs  EXPLICIT  and  BRIAN.  A  complete  listing  of  program  VALID 
is  provided  in  Appendix  E.  Table  1  lists  the  parameters  used  for  the 
validation  runs. 

The  validation  period  for  programs  VALID,  EXPLICIT,  and  BRIAN 
was  3,600  seconds  (one  hour).  The  distance  inside  the  semi-infinite 
solid  was  based  on  pre-selected  nodes  in  the  rectangular  model.  Three 
distances  were  used  in  the  semi-infinite  solid,  corresponding  to  three 
selected  nodes  in  the  rectangular  block. 

In  the  first  validation  run,  each  coordinate  direction  had  11 
nodes.  This  corresponded  to  an  explicit  technique  time  increment  of 
17.117  seconds,  which  was  also  selected  as  the  time  increment  for 
programs  BRIAN  and  VALID.  In  the  second  validation  run,  the  number 
of  nodes  was  increased  to  21  in  each  coordinate  direction.  The  time 
increment  used  in  this  run  was  4.279  seconds.  A  third  validation  run 
was  conducted  using  1 1  nodes  in  each  coordinate  direction.  The 
explicit  technique  and  program  VALID  used  a  time  increment  of 
17.117    seconds.    The    time    increment    for    program    BRIAN    was 
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Figure  5.    Flow  Chart  for  Program  VALID 
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increased  to  120  seconds.  The  increased  time  increment  was  used  to 
determine  whether  the  program  BRIAN  temperature  differences 
would  differ  significantly  from  those  previously  obtained  with  the 
17.117-second  time  increment. 

C.     VALIDATION   COMPUTATIONS 

Graphical  representations  of  the  temperature  differences  experi- 
enced over  the  validation  period  are  presented  in  Figures  6  through 
14. 

At  a  distance  of  one  meter  into  the  block  (Figures  6  and  7),  the 
temperature  differences  calculated  in  EXPLICIT  and  BRIAN  diverge 
significantly  from  VALID  after  a  period  of  616  seconds.  This  is  to  be 
expected  as  the  effects  of  the  constant  surface  heat  flux  will  provide 
higher  temperatures  in  the  rectangular  block  than  in  the  semi-infinite 
solid.  The  rectangular  block  can  thus  be  modeled  as  a  semi-infinite 
solid  for  only  about  10  minutes  at  a  distance  of  one  meter. 

At  a  distance  of  0.4  meters  into  the  solid  and  on  the  surface 
(Figures  8  through  11),  both  EXPLICIT  AND  BRIAN  temperature  dif- 
ferences were  in  close  agreement  with  the  closed-form  temperature 
differences  for  almost  the  entire  validation  period  of  one  hour. 

Increasing  the  number  of  nodes  and,  consequently,  decreasing 
the  time  increment  had  virtually  no  effect  on  temperature  differences, 
as  can  be  seen  in  Figures  6  through  1 1 . 

Increasing  the  program  BRIAN  time  increment  to  120  seconds 
did  not  degrade  the  accuracy  of  the  solution.   In  the  three  cases 
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Figure  6.    Temperature  Difference  Versus  Time  for  Time  Increment 
of  17.117  Seconds  with  Distance  of  1  Meter  Into  Block 
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Figure  7.   Temperature  Difference  Versus  Time  for  Time  Increment 
of  4.279  Seconds  with  Distance  of  1  Meter  Into  Block 
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Figure  8.   Temperature  Difference  Versus  Time  for  Time  Increment 
of  17.117  Seconds  with  Distance  of  0.4  Meters  Into  Block 


27 


...«b-... 

■'•:'NGb-- 


m- 


^: 


53 


o 
o 

CO 
CO 


o 
o 
o 

CO 


V 


=!SLll 


D   Oi< 


\ 


:S 


5 


s 
o 


z 

5  U 


o 

.  CD 
CV 


*-© 


S'S 


02  SI  0"T 

33K'3H3JJIQ  'dl\:31 


so 


00 


Figure  9.    Temperature  Difference  Versus  Time  for  Time  Increment 
of  4.279  Seconds  with  Distance  of  0.4  Meters  Into  Block 
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Figure  10.    Temperature  Difference  Versus  Time  for  Time 
Increment  of  17.117  Seconds  on  Left  Surface  of  Block 
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Figure  11.    Temperature  Difference  Versus  Time  for  Time 
Increment  of  4.279  Seconds  on  Left  Surface  of  Block 
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Figure  12.  Temperature  Difference  Versus  Time  for  Time  Increments 
of  17.117  and  120  Seconds  with  Distance  of  1  Meter  Into  Block 
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Figure  13.  Temperature  Difference  Versus  Time  for  Time  Increments 
of  17.117  and  120  Seconds  with  Distance  of  0.4  Meters  Into  Block 
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Figure  14.   Temperature  Difference  Versus  Time  for  Time 
Increments  of  17.117  and  120  Seconds  on  Left  Surface  of  Block 
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involving  distances  of  1.0  and  0.4  meters  into  the  surface  and  on  the 
surface,  the  temperature  differences  did  not  vary  by  more  than  0.045 
percent  from  those  obtained  using  a  17.117-second  time  increment. 
Figures  12  through  14  show  the  120-second  time  increment  plot  of 
temperature  difference  versus  time  being  in  close  agreement  to  the 
corresponding  17.117-second  time  increment  plots. 

Using  a  time  increment  of  17.117  seconds,  the  maximum  error 
was  found  to  be  within  0.019  percent  for  an  llxllxll  grid.  The 
maximum  error  was  calculated  using 

o/o ERROR  =  TcoMP7D  "  Texact   x  100ft 

*  EXACT  (34) 

where  Tcomputed  is  the  Brian's  technique  computed  temperature  and 
Texact  is  the  closed-form  temperature.  Sampling  points  were  taken 
at  600-second  intervals. 

In  a  similar  manner,  the  maximum  error  was  calculated  for  a  time 
increment  of  4.279  seconds.  The  maximum  error  was  found  to  be 
0.021  percent  for  a  21  x  21  x  21  grid. 

A  time  increment  of  120  seconds  was  above  the  maximum  allow- 
able time  step  from  stability  considerations  for  the  explicit  technique. 
Brian's  technique  thus  allowed  time  steps  above  the  limitation  of  the 
explicit  technique  with  very  little  compromise  in  solution  accuracy. 

Based  on  the  validation  test  results,  program  BRIAN  can  be  con- 
sidered correct  and  validated  for  further  use. 
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IV.     APPLICATIONS 

A.  GENERAL 

The  Brian  technique  was  used  to  solve  for  the  temperature  distri- 
bution in  an  application  example.  The  example  involves  the  transient 
thermal  response  of  a  component  on  board  an  orbiting  satellite. 

B.  ORBITING  SATELLITE  COMPONENT 
1.      Geometry  and  Initial  Conditions 

The  transient  thermal  response  of  an  orbiting  spacecraft 
component  will  be  investigated.  The  spacecraft  component  is  in  a  non- 
geosynchronous  circular  orbit  at  an  altitude  of  1,609.364  kilometers 
(1,000  miles).  The  equation  for  the  orbital  period  is  listed  in  Agrawal 
[Ref.  7]  as 


P=2k   «£ 

•V   ^  (35) 

where  (i  is  the  gravitational  constant  of  the  earth  and  d  is  the  sum  of 
the  satellite  altitude  and  radius  of  the  earth.  Eisele  and  Nichols  [Ref.  81 
list  the  values  of  (i  and  earth  radius  as  398,603.2  km2/s2  and 
6,378.165  kilometers,  respectively. 

The  period  of  revolution  in  this  case  is  7,104.4  seconds  or 
118.40  minutes.  For  a  satellite  in  a  circular  orbit  at  an  altitude  of  100 
miles,  Stevenson  and  Grafton  [Ref.  9]  listed  the  sun  exposure  time  as 
72  percent  of  the  orbital  time.  During  one  revolution  around  the  earth, 
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the  satellite  will  have  85.25  minutes  of  sun  exposure  and  spend  33.15 
minutes  in  the  earth's  shadow.  For  the  example  application,  the  satel- 
lite is  assumed  to  start  the  orbital  period  at  the  instant  it  becomes 
exposed  to  the  sun. 

Single  spin  stabilization  is  assumed,  thus  allowing  the 
spacecraft  component  to  spin  about  a  principal  moment  of  inertia  axis 
[Ref.  7].  The  spacecraft  component  spins  about  the  z-axis,  as  depicted 
in  Figure  15.  With  single  spin  stabilization,  it  is  assumed  that  the 
component  analyzed  here  will  have  all  four  sides  continuously  exposed 
to  the  sun  with  the  top  and  bottom  surfaces  not  receiving  solar  flux. 
The  fraction  of  solar  flux  that  is  incident  on  the  satellite  surface  is 
usually  defined  as  the  solar  aspect  coefficient  [Ref.  7].  Thus,  for  this 
example,  the  solar  aspect  coefficients  are  assumed  to  be  1.0  for  the 
side  surfaces  and  0.0  for  the  top  and  bottom  surfaces. 

Stevenson  and  Grafton  [Ref.  9]  compiled  the  geometric  fac- 
tors for  both  earth  radiation  and  reflected  solar  radiation  (albedo)  on  a 
flat  plate.  The  geometric  factor  for  earth  radiation  depends  on  the  sat- 
ellite's altitude  and  the  altitude  angle  between  the  normal  to  the  rect- 
angular component  and  the  vertical  to  the  satellite  from  the  earth  [Ref. 
9].  Figure  16  depicts  the  geometry  involved.  The  geometric  factor  for  a 
rectangular  plate  at  an  altitude  of  1,000  miles  (1,609.364  kilometers) 
and  altitude  angle  of  60  degrees  is  listed  as  0.3174  [Ref.  9]. 
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Figure  15.    Component  on  a  Satellite  in  Circular  Orbit 
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Figure  16.    Geometry  Used  in  Determining  Geometric  Factor 
for  Earth  Thermal  Radiation 

The  geometric  factor  for  reflected  solar  radiation  is  depen- 
dent on  the  satellite's  altitude,  the  altitude  angle,  the  sun  angle,  and 
the  angle  of  axis  rotation  [Ref.  7].  Figure  17  depicts  the  geometry 
involved.  The  geometric  factor  is  0.0456  for  a  satellite  at  1,000  miles 
altitude,  altitude  angle  of  60  degrees,  sun  angle  of  90  degrees,  and 
rotation  angle  of  0  degrees  [Ref.  9]. 
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Figure  17.    Geometry  Used  in  Determining  Geometric  Factor 
for  Solar  Reflected  Radiation 
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TABLE  2 
PARAMETERS  USED  IN  ORBITING  SATELLITE  APPLICATION 


Dimensions 


0.15  m  x  0.10  m  x  0.015  m 


Material 

aluminum  alloy  2024-T6 

•  density 

2,770  kg/m3 

•  thermal  conductivity 

186  W/m-K 

•  specific  heat 

1,000  J/kg-K 

Exterior  Coating 

black  paint 

•  solar  absorptivity 

0.97 

•   emissivity 

0.92 

Imposed  Flux 

•  bottom  surface 

50,000  W/m2 

Orbital  Data 

•  altitude 

1,609.364  km  (1,000  mi) 

•  period  of  rotation 

118.40  min 

•  exposure  to  sun 

85.25  min 

•  exposure  to  darkness 

33.15  min 

Solar  Aspect  Coefficients 

•  side  surfaces 

1.0 

•  top  and  bottom  surfaces 

0.0 

External  Flux 

•  solar  flux 

1,353  W/m2 

•  earth  radiation 

237  W/m2 

•  albedo  coefficient 

0.3 

Geometric  Factors 

•  earth  radiation 

0.3174 

•  albedo  flux 

0.0456 

Initial  Data 

•  heat  transfer  coefficients 

0.0  W/m2-K 

•  ambient  temperature 

OK 

•  initial  nodal  temperature 

500  K 
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Agrawal  [Ref.  7]  listed  the  mean  annual  solar  flux,  mean 
annual  earth  radiation,  and  mean  annual  value  of  albedo  coefficient  as 
1,353  W/m2,  237  W/m2,  and  0.30,  respectively.  These  value  are  used 
in  the  example. 

The  material  coating  on  the  component's  exterior  determines 
the  solar  absorptivity  and  emissivity.  The  component  is  assumed  to  be 
coated  with  black  paint,  thus  providing  a  solar  absorptivity  of  0.97  and 
an  emissivity  of  0.92  [Ref.  10]. 

The  component  is  rectangular  with  dimensions  of  0.25  m  x 
0.10  m  x  0.015  m  and  is  made  of  aluminum  alloy  2024-T6.  Incropeia 
and  DeWitt  [Ref.  2]  list  the  values  for  density,  thermal  conductivity, 
and  specific  heat. 

The  component  is  mounted  on  the  exterior  of  the  satellite. 
The  bottom  surface  is  attached  to  the  satellite  with  all  other  surfaces 
exposed  to  the  space  environment.  The  flux  on  the  bottom  surface  is 
assumed  to  be  50,000  W/m2. 

Table  2  lists  the  properties  and  other  parameters  used  in  the 
example. 

2.     Numerical  Calculations 

A  time  increment  of  120  seconds  (2  minutes)  was  used  in 
program  BRIAN.  The  program  covered  a  period  of  120,000  seconds 
(33.33  hours),  during  which  the  spacecraft  component  conducted 
16.9  orbits.  The  temperatures  of  top  surface  node  were  plotted  versus 
time,  as  shown  in  Figures  18  and  19.    The  temperature  versus  time 
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Figure  18.   Temperature  Variation  of  the  Top  Surface  Center  Node 
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Figure  19.   Temperature  Variation  of  the  Top  Surface  Center  Node 
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plots  in  both  figures  demonstrate  an  imperfect  sinusoid.  Steady  peri- 
odic response  occurs  following  orbit.  The  peak  temperatures  during 
the  third  orbit  vary  from  the  second  orbit  peak  temperatures  by  0.27 
percent.  The  largest  temperature  difference  in  successive  peak  tem- 
peratures is  0.27  percent  and  occurs  between  the  second  and  third 
orbits. 

The  oscillations  in  temperature  distribution  may  be  attributed 
to  overlaps  in  the  sunlight  and  eclipse  periods.  The  sunlight  exposure 
time  for  the  orbit  is  85.25  minutes.  A  time  increment  of  120  seconds 
(2  minutes)  would  allow  solar  flux  to  be  seen  by  the  satellite  compo- 
nent for  an  additional  1.25  minutes  on  the  first  orbit.  Thus,  1.25  min- 
utes of  the  first  eclipse  period  would  be  missed  at  the  beginning  of  the 
eclipse  period.  At  the  end  of  the  eclipse  period,  the  component  is  in 
darkness  an  extra  1.60  minutes.  These  overlaps  occur  throughout  the 
running  of  the  program  with  the  maximum  overlap  being  2  minutes. 
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V.    RESULTS 

Brian's  technique  was  validated  for  four  of  the  six  rectangular 
surfaces.  For  cases  involving  flux  or  convective  boundary  conditions  on 
the  front  and  back  surfaces  of  the  model,  temperature  distributions 
did  not  follow  the  pattern  obtained  in  previous  validation  cases.  This 
anomaly  requires  further  investigation. 
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VI.     CONCLUSIONS 

Brian's  technique  was  validated  using  the  explicit  technique  and 
the  closed  form  solution  for  a  semi-infinite  solid.  For  the  same  time 
increment,  the  explicit  technique  uses  six  times  less  CPU  time.  How- 
ever, as  the  time  increment  was  increased,  the  CPU  time  used  in 
Brian's  technique  became  less  than  that  used  in  the  explicit  technique 
for  time  steps  larger  than  110  seconds.  Brian's  technique  used  time 
increments  that  would  lead  to  instability  if  used  in  the  explicit 
technique. 
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VII.     RECOMMENDATIONS 

While  developing  the  computer  code  for  Brian's  technique,  mate- 
rial properties  were  assumed  to  be  independent  of  temperature.  A 
more  precise  code  would  make  thermal  conductivity  a  function  of 
temperature. 

Another  improvement  for  the  computer  code  when  used  for 
spacecraft  thermal  analysis  computations  involves  the  application  of 
orbital  mechanics.  This  would  permit  the  use  of  non-circular  orbits  in 
the  code. 

This  study  was  restricted  to  the  use  of  Cartesian  coordinates  in 
Brian's  technique.  Further  study  is  required  in  applying  Brian's  tech- 
nique in  cylindrical  and  spherical  coordinates. 
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APPENDIX  A 
EXPLICIT  TECHNIQUE  NODE  EQUATIONS 

A.  INTERIOR  NODE  EQUATION 

-C  =  T^  k  +  Fo(T:_ljik  +  T;+1J>k  -  2T^k) 

+RlMTu-l.k+TVJ«.k-2TVJ.k) 

+  R2Fo(T:.,k.1+T;jk+1-2T:jk) 

B.  SURFACE  NODE  EQUATIONS 

1.  Left  Face 

T:;1k=T:,k+Fo(T:.,J,k+T;,).t-2T:Jk) 

+  2F0R1(T"Jt,t-T"Jk) 

+  FoR2(Tlk-1+Tl„tl-2T?.,k) 

+  2Foq"Rj(T.-T°Jk) 

2.  Right  Face 

■C  =  T°uk  +  Fo(Ttuk  +  T^  -  2T?,k) 
+  2FoR1(T°J_lt-T"Jk) 
+  FoR2(T:,t_1+T:jk„-2T:jk) 
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Figure  29.    Geometry  of  Rectangular  Model 
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3.      Bottom  Face 


T:rk=T:J.k+Fo(T?-1J.k+T:H.,k-2T°J.k) 

+  FoR,(T",-i.k+T".JH.k-2T"Jk) 
+  2F0R2(T")W1-T"Jk) 


4.     Top  Face 


T:rk=T:,k+Fo(T:.uk+T°+1Jk-2T:,k) 

+FoR.(T"j-....+TVi.k-2T"j.o 

+  2F0R2(T"Jk_1-T"Jk) 
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5.  Front  Face 

T:.;,k=T:,k+2Fo(T:_1Jt-T:.Jk) 

+  F°R1(T",-1.k+T",.1.k-2T".,0 
+  **.(T^M+TtiM-2T^) 

6.  Back  Face 

T:;1k  =  T:j>k+2Fo(T;iijk-T;ijik) 

+  FoR1(T".j.1.k+T"j+lk-2T,;jk) 
+  FoR2(T;jk_1+T;jk+1-2T"jk) 

C.     PERIMETER  NODE  EQUATIONS 
1.     Perimeter  1 

T:;1k=T:).k+2Fo(T;1J.k-T:.]k) 

+  FoRi(T,J_1>k+Tlj+lk-2T1Jk) 
-f2FoR2(T^Jk_1-T:jk) 
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2.  Perimeter  2 

Ti;L=T:,k+2Fo(T».1<lk-T:,,l) 

+  FoR.(T",-1.k+T"Jtl.k-2T")t) 
+  2FoR2(T:jk_1-T"Jk) 

3.  Perimeter  3 

T:;k  =  T:,k+2Fo(T°+1Ak-T^k) 

+  FoR.(T")-..k+T"J*1.k-2T",k) 
+  2FoR2(T"Jk^-T"Jk) 

4.  Perimeter  4 

T:;k  =  Tuk+2Fo(Tt1J.k-T°.,k) 

+  FoR1(T")_lk  +T"^,  k  -  2T"]t) 

+  2F0R2(T"Jktl-T"Jk) 

5.  Perimeter  5 

T:;1k=Tu.k+2Fo(T:.1Jk-T"J.k) 

+  2FoR1(T"J_lk-T"]k) 

+  F°R2(T",k-1+T:j.k+.-2T°t,k) 
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6.  Perimeter  6 

T:;,k=T:,t+2Fo(T;1J.k-T:Jk) 

+  2FoR1(T°J_lt-T°Jk) 

+  F°R2(T:,t_1+T°)ttl-2Tl)k) 

7.  Perimeter  7 

T:;1k  =  T;>j,k  +  2Fo(T;_ltj,k-T;,Jk) 

+  2F6R1(T"Jflik-T"J>k) 

+  FoR2(T:j,k_1+T;jk+1-2T,;jk) 

+  2FoBiR  \(Tm-  Tntjtk)  +  2Foq"R1^- 

8.  Perimeter  8 

TiJ:ik=T:.,k+2Fo(T;1J,k-T:Jk) 

+  2FoR,(T"Jtlk-T"Jk) 

+  F°R2(T°J.k-1+T;,ttI-2T"Jk) 

+  2FoBiR  ^(T.  -  T"yk)  +  2Foq"R,-j^- 
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9.  Perimeter  9 

■C  =  T?.,k  +  Fo(T°.1.,k  +  T;uk  -  2T^k) 
+  2FoR1(T"J_lt-T"]t) 
+  2FoR2(Trj,k+1-T°Jk) 

10.  Perimeter  10 

•C  ■  T",.* + Hr°-^ + T°«^  -  2t"j.O 

+  2FoR1(T"J_lt-T"Jk) 
+  2F0R2(T"Jk.,-T"Jk) 

11.  Perimeter  11 

T:;ik=T:J.k+Fo(T;_,j.k+T:+1J>k-2T:Jk) 

+  2FoR1(T1nJ+lk-T"jk) 
+  2FoR2(T"Jk_1-T:jk) 

Ay 


+  2FoBiR  i(T.-T"jk)  +  2Foq"Rr 


k 
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12.  Perimeter  12 

T:;1k  =  T:j>k  +  Fo(Tt1Jik  +  T:+1J>k-2TtJk) 

+  2FoR1(T"J+lk-T"Jk) 
+  2FoR2(T^>k+1-Trjk) 

+  2FoBiR  J (T„  -  T"j  k)  +  2Foq"R1^- 

D.     CORNER  NODE  EQUATIONS 

1.  Corner  1 

T:;k=T:Jk+2Fo(T:+1>jk-T:Jk) 

+  2FoR1(T"J+lk-T"jk) 
+  2FoR2(T:jk+1-T"jk) 

Ay 
+  2Foq"Rll^- 

2.  Corner  2 

T:;k=T:J(k+2Fo(T:_1Jtk-T;J>k) 

+  2FoR1(T"J+lk-T"Jk) 

+  2FoR2(T°jk+1-T*J>k) 

Ay 
+  2Foq%1f 
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3.  Corner  3 

T:;1k=T:Jk+2Fo(T:+1Jk-T:Jk) 

+  2FoR1(T"j+lk-T"jk) 
+  2FoR2(T^k.1-Tr>Jk) 

Ay 
+  2Foq"Rll^ 

4.  Corner  4 


T:;;=T:Jik+2Fo(T;lijik-T;j>k) 

+  2FoR1(T"J+lk-T"jk) 

+  2FoR2(T:jk_1-T;jk) 

Ay 
+  2Foq"Rll^- 


5.     Corner  5 


T?rk  =  T"  k  +  2FofT"    ,k-T°  A 

i.j.k  i,j,k  y       i+l.J,k  *0-k/ 

+  2FoR1(T"J_lk-T"Jt) 
+  2FoR2(T"Jti]-T")k) 

+  2FoBiR;(T.-T"lJt) 
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6.  Corner  6 

Trk  =  T:j,k+2Fo(T;.1J.k-T;jk) 

+  2FoR1(T°J_lk-T"Jk) 
+  2FoR2(T:jktl-T"Jk) 

1 

+  2FoBiR;(T„-TnLJk) 

7.  Corner  7 

T:J:ik=T:,k+2Fo(T;+1Jit-T°,k) 

+  2FoR1(T°J_lk-T"Jk) 
+  2FoR2(T"Jk_,-T"Jt) 

1 

+  2FoBiR*(T..-T°jk) 

8.  Corner  8 

T:;1k=T:.J.k+2Fo(T:.1Jk-T:Jk) 

+  2FoR1(T°J.lk-T"Jk) 
+  2F0R2(T")k_,-T"Jk) 

+  2FoBiR;(T„-Tntjk) 
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APPENDIX  B 
BRIANS  TECHNIQUE  NODE  EQUATIONS 

A.     X-DIRECTION  EQUATIONS 

1.  Corner  1 

(l  +  2Fo)T*„  -2FoT«Jk  =T:jk  +  U3(T"J,lk-T"Jt) 
+  U4(T"jk,1-T"Jk)+V1(T.1-T;jk)+V3(T.3-T^k) 
+  V6(T.6  -T"Jk)  +W,  +W3  +W6  +  X,(T^k  -Tl,) 

+x3(Tt).k  -rt,) +X6«k  -Tl6)  +Y1E0lJ,k 

2.  Perimeter  12 

-FoTt,.,,  +  <l+2Fo)T'.„   -FoTulJk  = 
T^k  +  U,(T^,.k  -T;jt)  +  U  4(T^,  -T^k) 
+  V1(T-.-T").k)+V3(T-3-T,",k)+W1+W3 
+  X.(T"i'i!-T4-,)+X3(T"J-k-T4-3)+Y1EG,J.k 
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Figure  30.    Geometry  of  Rectangular  Model 


3.      Corner  2 


-2FoTr-..,k  +(l+2F0)T't  =T;Jk+u3(T;jtlk-T")k) 

+  U4(T:jk„  -T"Jk)  +V1(T-1  -T°Jk)  +V3(T.3-T"Jk) 
+  F5(T„5-T"Jk)+W1  +  W3  +  W5+X1(T"J4k-Tl1) 
+  X3«k  -Tl3)  +X5(T^k  -Tl5)  +Y,EGljik 
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4.  Perimeter  8 

(l+2Fo)T'k  -2FoT*1Jk  =T:,k  +  U2(T"Jk_,  +  T;]kil-2T"]t) 
+  U3(T:.Jt,k  -T"Jk)  +V1(T.,  -T")k)  +V6(T_6  -T"L)k) 
+  W,  +W6  +  X,(T")4k  -Tl,)  +X6(T"J4k  -Tl^+Y.Eo^ 

5.  Left  Face 

-FoTf.,.,,  +(l  +  2Fo)T',k  -FoT^  =T")k 

+  U2(T;.,k_1  +T^M  -2T^k)  +U3(T°]tl ,k-T"Jk) 
+  V1(T.1-T:jk)+W1+X,(T^k-Ti1)+Y,EG,Jt 

6.  Perimeter  7 

-2F°T;-,J.k  +(l  +  2Fo)T«,k  =T"Jk 
+  U2  (T:,k_,  +  T^ ,M  -  2T^  k)  +  U3(T°J+1  k  -  T", .„) 
+  V,(T.1-T:jk)+V5(T.5-T"Jk)+W1+W5 
+  *i(t£  -T4.,)  +Xb(t"J1i  -O  +  Y.Eo,^ 
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7.  Corner  3 

(l  +  2Fo)T*.k  -2FoT^.,k  =  T^  +  U3 (t",41], - T°tJ k) 

+  U4(T"J.k_1-T"Jk)+V1(T.,-T^k) 

+  V4(T.4-T;k)+V6(T.6-T°]k)+W1+W4+W6 

+Xl(T:;k-T;)+x4(T:;k-Ti4) 

+  x6(TlJ4t-T4.6)+Y1EG|]k 

8.  Perimeter  11 

-F°T:-.,k  +  (l+2Fo)T*k  -FoT?„Jk  =T^k 

+  U3(T:jt,k  -T°Jk)  +U4(T"ut_,  -T°Jk)  +V,(T.,  -T°Jk) 
+  V4(T.4  -T"Jk)  +W,  +W4  +  X,(<k  -T4.,) 
+  X4(Tr.J4k-Ti4)+Y,EG,Jk 

9.  Corner  4 

-2F°Tf.1Jk  +  (1  +  2Fo)T«  „  =  T*  k  +  U3(T")tl  k  -T^  k) 

^.(t:,..,  -T",k)  +V,(T.,  -T^k)  +V4(T.4-T"Jk) 
+  V5(T-5-T",w)+W.+W4+W5+X1(T"]4k-T!1) 
+  X4(T"J4k-Tl4)+X5(<t-Ti5)  +  Y1EG,.J.k 


60 


10.  Perimeter  3 

(l+2Fo)T*t  -2FoT*tlJk  =  T°Jk  +  U  ,(T^,  .„  +  T^,,,,  -  2T°Jk) 

+  ^(1-:,,,,  -T°Jk)  +V3(T.3  -T"]k)  +V6(T.6-T"Jk) 
+  W3+W6  +  X3(T;j4k-Tl3)+X6(T^k-T4.6)  +  Y1EGlJk 

11.  Bottom  Face 

-FoTr.,,,k  +  (l+2Fo)T«k  -FoT?,1Jk  =T"Jk  + 
U  ,(T;W  +  T^,  k  -  2T"jk)  +  U4(T;k+]  -  TtJ  k) 
+  V3(T.3  -T"Jk)  +W3  +  X3(T;j4k  -Tl3)  +  Y,E0lJk 

12.  Perimeter  4 

-2F°Tt..,k  +<l+2Fo)T*k  =T"Jk  + 

u.(t^a + t^,  k  -  2T;Jk) + u4(T:Jkt,  -  T:.k) 

+  V3(T.3  -T"Jk)  +V5(T.5-T"Jk)  +W3  +W5 
+  X3(T°*k  -Tl3)  +X5(T;j4k  -Tl5)  +Y.EO.J,,, 
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13.  Back  Face 

U+2Fo)T*>k  -2FoTr+1.,k  =  T^k  +  U  ^T^  +  T°j+1>k  -  2T»jk) 
+  U2(T^->  +T;jk+1-2T^k)  +V6(T.6-T:jk)  +W6 

+  Xe(Ty.k  -T~e)  +  YiEGi.j.k 

14.  Interior 

-F°TU.,,  +(l  +  2Fo)T*,k  -FoTf+IJk  =T°jk 

+  U1(T:j_lk+T^lk-2T"Jt) 

+  U,(T"      ,  +  T"      ,  -2T° ,J)  +Y,EG,,„ 

2\       i,j.k  — 1  i,j,k+l  LJ.k/  1       ui.j,k 

15.  Front  Face 

-2FoT*      ,    +  (l+2Fo)T*      =T"     +U,(t".  ,  ,  +T"      .  -2T"..) 

i—l  J.k  '       l.j.k  i.j.k  1\       i.j-l.k  i,j+l,k  l.J-k/ 

+  U2(T;.Jk_1  +  T"uktl  -2T"Jk)  +V5(T.6-T°Jk) 
+  W5+^5(T:j4k-Tl5)+Y1E0lJk 

16.  Perimeter  1 

a  +  2F0)T',„  -2FoTr+1Jt  =T:jk  +  U1(TlJ_,k  +  T"J„k-2T;jk) 

+  U4(T"Jk_1  -T"Jk)  +V4(T-4-TlJ,l)  +Ve(T.6-T°J.k) 

+  W4  +  W6+X4(TLJ4k-Ti4)+X6(T"J4t-Ti6)+Y1EG,J.k 
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17.  Top  Face 

-FoTT,^  +  (l  +  2Fo)T',k  -FoT^1Jk  -T^„ 

+  U1(T;.1.k  +T"Jt,  „  -2T^k)  +U4(T"Jt_,  -T»Jk) 
+  V4(T.4  -T:jk)  +W4  +X4(T"J"k  -Tl4)  +Y1E0l,k 

18.  Perimeter  2 

-2F°Tf.1Jk  +  (l  +  2Fo)T»  k  =T°Jk  +  U1(T:j.1,k  +  T°J4lk-2T^k) 

+  U1(T°J,k.1  -T"Jk)  +V4(T.4  -T°Jk)  +V5(T.5-T"Jk) 
+  W4+W5+X4(T:]4k-Ti4)+X5(T:j4k-Ti5)+Y1E0lJk 

19.  Corner  5 

(l  +  2Fo)T*k  -2FoT'tlJk  =  T^k  +  U3(T°J.1,k - T°, k) 

+  U4(T:.)ki,  -T°tk)  +V2(T.2  -T°Jk)  +V3(T.3-T^Jk) 
+  V6(T.6-T"Jk)+W2  +  W3+W6  +  X2(T^k-Ti2) 

+  X3(TtJ.k   -T-3)+X6(T"j.k~T46)+YlEG,.j.k 
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20.  Perimeter  9 

-F°Tr_1Jk  +  (l  +  2Fo)T*,k  -FoTf+1J.k  =T't^  +  U,(T^, .k  "  T".,.k) 
+  U4(T»dk+1  -T"]t)  +  V2(T_2  -T"]k)  +V3(T.3-T"Jk) 
+  W2  +W3  +  X2(T;j4k  -Tl,)  +X3(TkJ4k  -Tt3)  +  Y,EGMk 

21.  Corner  6 

-2F°Tr-,.,k  +<i+2Fo)T«k  =T:)k+u3(T:).lk-T:Jk) 

+  U4(T",k„  -T"Jk)  +V2(T.2  -T"Jk)  +V3(T.3-T")k) 
+  V5(T„5  -T^k)  +W2  +  W3  +W5  +  X2(T"J4k  -T4,) 
+  X3«u  "A)  +X5(T^k  -Tl5)  +Y,EG,Jk 

22.  Perimeter  6 

(l  +  2Fo)T*      -2FoT*    ..    =T°  .  +U,(T*      ,  +  T°  W,-2T°     ) 

i.J.k  i+1  .j.k  i.j.k  2\       i.j.k-1  i,j.k+l  l.J.k  y 

+  U3(T:.J.,.k  -T^k)  +V2(T.2-T:jk)  +V6(T-6  -T")k) 
+  W2  +We  +  X2(T°j4k  -Tt2)  +X6(T;)"k  -Tl6)  +YlEG,Jk 
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23.  Right  Face 

-FoT:_1]>k  +  (l+2Fo)T»k  -FoTJ4IJ,k  -T^„ 

+  U2(T"Jt_1 +T"JW1 -2T"]t) +U3(T"J_1  t-T"Jk) 
+  V2(T_2  -T"Jk)  +W2  +  X2(T"J"k  -Tl2)  +Y,EGrjk 

24.  Perimeter  5 

-2F°Tr-.,k  +(l+2Fo)T*  k  =T"Jk+  U2(T:jk_,  +T:j,k+1-2T;]]k) 
+  U3(Ty-1.k-T°,0  +V2(T-2-T:,k)  +V5(T.6-Tljk) 
+  W2  +W5  +  X2(T"J4k  -Tt.)  +X5(T"'k  -T4.5)  +  Y,E0lJk 

25.  Corner  7 

(l  +  2Fo)T*k  -2FoTftlJk  =T"J  k  +  U3(T°VJ.1  ,k  -  T",  k) 
+  U4(T°Jk.1  -T°Jk)  +V2(T.2  -T;jk)  +V4(T.4-T"Jk) 
+  V6(T.6-T"Jk)+W2+W4  +  W6  +  X2(T"J4k-Tl2) 
+  X4(Tr.J"k-Tl4)+X6(T"j4k-T4.6)+Y1EGuk 
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26.  Perimeter  10 

-F°T:-.,u  +<l  +  2Fo)T;)t  -FoT^1Jk  -T^ 
+  U1(T^ljfc-T^k)+U4(T^M-T^k) 

+  V2(T.2-T:jk)+V4(T.4-T"Jt)+W2+W4 
+  X2(T"J4t-T-2)+X4(T:.j4k-T!4)+Y1Eaijk 

27.  Corner  8 

~2F°TU.,,  +(l  +  2Fo)T*.k  =T"]k+U3(T"J_lk-T"Jk) 
+  U4(T^k_1  -T^)  +  V2(T.2  -T°]k)  +V4(T.4-T"jk) 

+  V5(T-5-T".j.0+W=  +  W4  +  W5+X2(T"j4k-Tl2) 
+  X4(T:.J4k-Tl4)  H-X^T^  -Tle)+Y:Eoy.k 

B.     Y-DIRECTION  EQUATIONS 
1.      Corner  1 

(l+2FoR,)T**k     -2F0R,T«;ik     =  T^k  +  U4(T^k41-  T°jk) 

+  Us(Tr.,,k  -T*.k  )t-V1(T.1-T;jk)+V3(T.3-T"Jk) 

+  V6(T.6-T;jk)+W1  +  W3+W6  +  X1(T"J4k-Tl,) 

+  X3(T".J.k    -T-3)+X6(T"j.k    _T-6)   +  YlE<=,.j.k 
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2.  Perimeter  3 

-FoRJ*;,,    +   (1  +  2FoR  JT  -     -FoRJ^,,    = 

T:,k+U4(T^k+1-T"jk)  +  U5(T*ljik   -T*  k  ) 

+  V3(T-3-T;,k)+V6(T.5-T:jk)+W3+W6 

+  X3(T"j.k  -T~3)  +X6(T"j,k  -T~6)  +  YlEGl.j.k 

3.  Corner  5 

-SFoR.T^,    +    (l+2FoR,)T*;k    =  T^  +  U,^,,  -T^) 
+  U5(T:„J>k  -T*k  )+V2(T.2-T;jt)+V3(T.3-T"Jk) 
+  V6(T.6  -T^k)  +W2  +  W3+We  +  X!!(T°J4k  -Ti2) 
+  X,('t"4    -T4_,)+XJ't"4    -T4  )+Y,Eq ... 

3\        i.j.k  3/  6\       i.j.k  6/  1        °  l.j.k 

4.  Perimeter  8 

(1  +  2FOR  ,)T  *  k  -  2FOR  ,T*tl,k  =T^k  +  U2(T°y ,k_,  +  T^  -  2T^k) 
+  Us(Tr.1.J.k  "  T*.k  )+V1(T.,-T"]k)+V6(T.6-T")k) 
+  W,  +W6  +  X1(T"]4k  -Tl,)  +X6(T"J4k  -Tt6)  +  Y,E0lJ.k 
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5.  Back  Face 

"FoRjr;.,,    +   (l+2FoR,)T-     -  FoR,T»*k    =  T°jk 
+  U3(T°l],k.1+T^k+1-2T;j,k)+U5(T*1J1,  -T',k  )  + 

+  V6(T.6-T;jk)+W6  +  X6(T;j4k-Tl6)+Y1EGlJk 

6.  Perimeter  6 

-2FoR,Tt;,.k    +   (1  +  2FoR  ,)T ';k    =   T^ .k  +  U2(T°Jk.,  +  T°y  ktl  -  2T"Jk) 
+  U5(T»1J,k  -T«k  )+Va(T^-Tljk)+V6(T.6-T°Jk) 

+  W2+W6  +  X2(T"J4k-Ti2)+X6(T^k-Tl6)+Y1EG,Jk 

7.  Corner  3 

(1  +  2FoR  ,)T  *  .    -2FoR,T*  ,.    =T"  .  +  UA(Tn. .  , -T*  .) 

V  1/       i.j.k  1      i,j+l.k  i.j.k  4\       i.j.k-1  i  .j.ky 

+  U.(TJuk  "  T*.k  )+V1(T.1-TlJk)+V4(T.4-T°jk) 

+  V6(T.6-T;jk)+W1  +  W4+W6+X1(T^k-Ti1) 
+  X4(T:.J4k-Tl4)  +  X6(T;j4t-Tl6)+Y,ECltt 
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8.  Perimeter  1 

-FoR.T^.k    +   (1  +  2FoR.)Tt"     -  F^.Tf^.k   =   T°,k 
+  U4(T",k.,  -T°Jk)  +U5(T«1J,k  -T*  „  )  +V4(T.4  -T°lk) 

+  V6(T.6  -T"Jk)  +W4  +W6  +  X4(T"J4k-Tl4) 

+  X6(Tlj4k-T4-6)  +  Y1EG,Jk 

9.  Corner  7 

-2FOR.T-,    +   (1  +  2FoR  ,)T «     =   T "^  +  U4 (t"^  - T"]k) 

+  U5(T^.,k  -TM.x  )+V2(T-2-T:,k)+V4(T.4-T")k) 
+  V6(T.6-T^k)+W2  +  W4  +  W6+X2(T")4k-Tl2) 

+  x.(t"4  -tIJ+xIt"4  -t1k)  +  y,eg... 

4\       i.j.k  4/  6\       l.j.k  6/  1        °  l.j.k 

10.  Perimeter  12 

(1  +  2FoR  ,)T  •  k  -  2F0R  ,T^,  k  =T"J  k  +  U4(t"j m  -T°)t) 

+  F°(T1*-.J.k  +T*,,k  -  2T«  k  )  +V1(T.1  -T"Jt)  +V3(T.3-T"Jt) 
+  W1  +  W3  +  X1(T;j4k-Tl1)+X3(T;4k-Ti3)+Y1EG|J|t 
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11.  Bottom  Face 

"FoR.T;;.,,    +   (l+2F0R,)T«;k    -  FoR.T.V,.,  =T^t 
+  U4(Tr,,krt-T°J.k)+Fo(T*1J,k  +  T«,,k  -2T*k  ) 
+  V3(T.3-T")k)+W3  +  X3(T"J4k-T4.3)+Y1EG,Jk 

12.  Perimeter  9 

-2FoR,Tj;ik    +   (1  +  2FoR  ,)T  »     =  T^ k  +  U ^T^  - T^) 

+  F°(T*,.,„  +T*,.,,,  -2T*,k)+V2(T^-T°]k)+V3(T.3-T^k) 

+  W2  +W3  +  X2(T:]4k  -Tl2)  +X3(T"J4k  -Tl3)  +Y,EQlJ,k 

13.  Left  Face 

(1  +  2F0R1)T-     -  2F0R1T*tlk    =  T^  k  +  U2(T^k_,  +T"Jk+1  -  2T",  k) 

+  F°(T*..j.u  +T,*«.,k  -  2T«  k  )+V,(T„,-T;jk) 
+  W1+X,(T"4k-Ti1)+Y1EG,Jk 

14.  Interior 

-FoR.T;;,,    +   (l  +  2FoR,)T£k    -  FoR.T*,,,,,  =T*]k 

+  U2(T°].k.1+T"j.ktl-2T°J,k)+Fo(T*1,,„  +T;tlJ.„  -2T*.k  ) 

+  Y,Eo,J.k 
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15.  Right  Face 

-SFoR.T**^    +   (l+2FoR,)T**,    =  T", k  +  U2 (T^.,  +  T°Jk+1  -  2T°, k) 

+  F°(T,-1J.u  +T*,,.,,  -2T»,k  )+V2(T_2-T"Jk) 
+  W2+X2(T"J4k-Tl2)+Y,E0lJk 

16.  Perimeter  11 

(1+ 2FoR,)T*.*     -  2FoR,T**       =  T°  v+  U, ( T°  „  , -T°  J) 

V  1/       i.j.k  1       l.j+l.k  i.j.k  4\       i.J.k-1  i.J-k/ 

+  F0CT*    ,.    +T*   ,.  -  2T*      HV,fT„,  -T"  A 

\       i-l . j, k  i+I. j. k  i.j.k    )  \\         1  i.j. k y 

+  VjT„A  -Tn..)  +W,  +W    +X,(t"4,  -Tl,) 

4\  4  l.j.ky  1  4  1\       i.j.k  1/ 

+  xYt"'  -tIJ+y^q.,. 

4  \      i.j.k  4/  1      *-•  i.j.k 

17.  Top  Face 

-FoR^f*        +   (l+2FoR,)T**     -  FoR,T*  ,  .    =  T"  . 

1       i.j-l.k  V  1/       i.j.k  1       l.j+l.k  i.j.k 

+  UdfTn..  ,  -T"  A  +  Fo(T*    ,.    +  T*    ,.    -2T*  .   ) 

4\       i,j.k-l  I.j.k/  V       l-l.j.k  i+l.j,k  i.j.k    / 

+  VjT„-Tn.)  +W    +Xd(T"4.  -TlJ  +  Y.EGl  .. 

4\  4  i.j.k/  4  4\       i.j.k  4/  1        "i.j.k 
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18.  Perimeter  10 

-2F0R.T**       +   (l+2FoR1)T**     =  T°     +  UA  (T°  .  .  -  T°    ) 

1       i.j-l.k  V  1/       i.j.k  l.j.k  4  \       i,j,k-l  l.J. ky 

+  F°(T*1.,k  +T*,,k  -2T',k)+V2(T„2-T"Jk) 
+  V4(T.4-T".k)+W2  +  W4  +  X2(T"]4k-Tl2) 
+  X4(Trj4k-T-4)+Y,EGlJk 

19.  Corner  2 

(l+2FoR,)TtJ*k    -  2FoR,T;j:,.k    =  T^ t  +  U4 (T°Jk+1  - T^) 
+  U5(T,*,.,k  "  T,*.k  )  +V,(T_1  -T°jk)  +V3(T-3-T°jk) 

+  V5(T-5-Tlu)+W1+W3+W6  +  X1(T:]4k-Tl1) 
+  X3«k  -Tl3)  +  X5(<k  -Tl5)  +Y,EGlJk 

20.  Perimeter  4 

-FoRJtA.k    +   (l+2FoR1)T-     -  FoR/T-.k   =   T"Jk 
+  U  fTn        -Tn    Ull  (T*         -T*      \+V  (T„    -Tn    ^ 

T  u  4V       i.J.k+1         x  i.j.k^         ^5  V       i-l.j.k  1  i.j.k    ^  T   v3  V         3         X  i.j.k,/ 

+  V5(T.5-T:jk)+W3  +  W5+X3(Trj4k-Tl3) 
+  X5(T")4.-T-5)+Y,Eo1.,k 
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21.  Corner  6 

-2FoR,Tt;,k    +   (l  +  2FoR,)T«     =  T"Jk  +  U4(t")M  -T")k) 
+  U5(T;>_„k  -T»k  )+V2(T.2-T")k)+V3(T.3-T"Jk) 
+  V5(T.5-T^k)+W2  +  W3+W5  +  X2(T"J4k-Tl2) 
+  X3(T:.J4k-T4-3)+X5(T"J4k-Tl5)+Y1EGljk 

22.  Perimeter  7 

(l+2FoR,)T«*k    -  2FoR1T*:i.k    =  T^H-  U^T^  +  T^M  -2T1'J,k) 
+  U5(T*1J.k  -  T*.k)+V1(T.1-T°Jik)+Vs(T.5-T°]l)+W1+W5 

+  x1«k  'T-d+XXTC  -T-s)  +Y.Eo,J.t 

23.  Front  Face 

-FoR.T**,  k    +   (1 +2FoR,)T»*.     -  FoR.Tf*  .    =   T° 

1       i,j-l.k  V  1/       i.j.k  1      i,j+l.k  i.j,k 

+u2(Tik-,+T:,k..-2Tu.t)+u5(T*.J.k  -t^  ) 

+  V5(T-5-Tuk)+Wa  +  X5«w-Tl5)+Y1EG,.J.k 
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24.  Perimeter  5 

-2  FOR  ,T  ^    +   (l+2FoR,)T»     =  T°Jk  +  U2  (T^  .„_,  +  T°]k+1  -  2T°Jk) 

+  U5(Tr-,.,k  -T'.k  )  +V2(T.2  -T"lJk)  +V5(T.5-T°Jk)  +W2  +W5 

+  X2(T"j.k  _T^)  +X5(T"j.k  _T-5)  +YlEGt.j.k 

25.  Corner  4 

(l+2FoR1)Tt*k    -  2FoR,TJj:i.k    =  T^k  +  U4  (T^_  -  T°Jk) 
+  U5(T*,,k  -  T*Jk  )  +  V,  (T.,  -T"jk)  +  V4  (T.4-T°lk) 
+  V5(T.5-T;jk)+W1+W4  +  W5+X1(T")4k-Ti1) 

+  xYt°4.  -t*)  +  x=(t°*  -t' )+y,eg ... 

4\       l.j.k  4/  5\       l.j.k  °°5/  1      u  l.j.k 

26.  Perimeter  2 

-FoR,T**  .     +   (l+2FoR,)T**     -  FoR.T**  .    =   T" 

1       i.j-l,k  V  1/       l.j.k  1       l.j+l.k  l.j.k 

+  U4(T"      .  -Tn.w)  +U(T*,  ,.    -T*  .   ^  +VjT„A  -Tat.) 

4  y^       i.j.k-1  i.J'K/  5  V       i— l.j.k  i.j.k    /  4  \  4  i.j. ky 

+  V5(T-5-T".,k)+W4+W5  +  X4(T"J4k-T-4) 

+x5(T';J41,-T4-5)+Y>Eo1.,k 
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27.  Corner  8 

-2FoR,T;;ik    +   (l  +  2F0R1)T*;k    =T:jk  +  U4(T"Jk_,-T:jt) 
+  U5(T*,.,k  -T»k  )+V2(T.2-T"Jk)+V4(T.4-T"Jk) 
+  V5(T.5-T^k)+W2  +  W4  +  W5  +  X2(Trj4k-Tl2) 
+  X4(T"J4k-Tl4)+X5(T,;j4k-T4.5)+Y1EClJk 

C.     Z-DIRECTION  EQUATIONS 

1.  Corner  1 

(l  +  2FoR,yr";'  -2FoR,T"*'   ,  =T**     +  U,(T**        -T"      "\ 

V  2/       l.j.k  2      i,j.k+l  i.j.k  3V.       i.j+l.k  i.j.k        / 

U5V  X    i+l.J.k  L  i.j.k    )  T   V  ll,  l  -         X   i.j.k        y  ^   V  3^  X  ~3         X   i.j.k        ) 

+  ViT„   -T**      ^  +W.  + W,  +  WR  +  X,(T**4     -TL) 

6\  6  i.j.k         )  1  3  6  1\       i.j.k  1/ 

+  XqfT*.*4     -T4  )  +XrCt*.**     -T*  )  +Y,EG.  lb 

3\       I.J.K  3/  6\       l.J.k  6/  1  i.j.k 

2.  Perimeter  8 

-FoR2T:;'k_,  +  (1  4-  2FoR2)T";k  -  FoR2T";'k  =  T*  • 

+  U3(T,*At    -T«J     )  +  U5(T«1Jk-T'k  )+V1(T.1-TfJ*k     ) 

+  V6(T.6-T-      )+W1  +  W6  +  X1(T*J*k      -Tl,) 

+  x.(Ttf     -Ti6)+Y,EGuk 
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*n+l  /i         /-»  t->    -r-.     ^n^n+1 


3.  Corner  3 

-2For2t:,;L  +  (i  +  2For2)t;'-=t**    +U3(T-k   -  T**     ) 
+  us(T*1.J.k-T*,k)+v1(T-,-T!/L    )+v4(t.4-t»»    ) 

+  V6(T.6-TtJ*k     )+W1  +  W4  +  W6  +  X1(T,V:     -T4,) 
+  X4(T«;k4     -Tl4)  +  X6(T,V:     -Ti6)+YlEc,,k 

4.  Perimeter  12 

(l  +  2FoR2)T:;1k-2FoRX;L=Tr,*k     +  U3(T,y,  k    -  T,^     ) 

+  Fo(T»1)k  +T*1Jk  -2T»k)+V,(T.-T;j«k     )  +  V3(T_3  -TJ»      ) 

+  W1+W3  +  X1(T;j'k4    -Ti1)+X3(T*^     -Ti3)+YlEo1,J,1, 

5.  Left  Face 

-2FoR2T:;1k_1+(l+2FoR2)Ti;'k  =  T,7k    +  U3(T«tl  k     -  T**      ) 

+  F°(T*,.J.k  +T,W-2T'k)+V,(T.,-T-      )+V4(T.4-T;;k     ) 

+  W1+W4+X1(T*J«k4     -Tl^  +  X^T,^     -T44)  +  Y,Eo,,k 
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6.  Perimeter  11 

-2FoR2T:;U+(l+2FoR2)T^k  =  T-     +U3(T*+*lk    -  T**      ) 

+  Fo(T*1Jk  +T1*+ljk-2T*k)+V1(T„1-T-k     ) +V4(T.4 -TJ-      ) 

+w1+w4+x1(Tf;k4    -tI^  +  x^t**    -tIJ+y^o^ 

7.  Corner  2 

(l  +  2FoR2)T";1k-FoR2T";,k,1  =  T«*     +  U3(T*  •  k    -  T«»      ) 

+  u5(T*,,k  -T*.k)+v1(T.1-T;J'    )+v3(T.3-T;;k    ) 
+  v5(T.5-Tj;k    )  +  w1  +  w3  +  w5  +  x1(T;;t4    -t4.,) 
+x.(Tt£   -t4.3)+x5(t*;4    -t16)  +y1BoI41 

8.  Perimeter  7 

-F°R/Ck_,  +  (1  +  2F0R2)T";'k  -  FoR2T";'kH  =T«'k 
+  U3(T«;ik     -  T««      )+U5(T«1Jk-T«k  ) 
+  V1(T.1-T-      )+V5(T.5-Tt;k     )+W,+W5 

+  X,(T"..4     -T-.)+X5(T*^     -TlB)  +YlEoIik 
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»n  +  l  ,,  _  _, ,    _.     .  _n  +  l 


9.  Corner  4 

-2FoR2T°;1k.1  +  (l+2FoR2)T^  =  T*;k    +U3(T*;ik    -  T**      ) 
+  U5(Tw.,k-T*,t)+V1(T.1-T-      )+V4(T.4-T-      ) 

+  v5(T.5-T;;t    )+w1  +  w4  +  w5  +  x,(T*J*k    -t!,) 

+x4(T:;t4  -T4.4)+x5(T*;k  -t:s)+y,eo,ji 

10.  Perimeter  3 
(1  +  2FoR2)T:;k  -  2F0R2T";t+1  =T*  • 
+  U1(T-k    +T-k   -   2T«J     )  +  U5(T«lik   -T*k) 

+  v3(T.3-T;;t    )+v6(T.6-T;;k    )  +  w3+w6 

+  Xs(TtJ*k4     -Tl3)  +  X6(T«;k     -TiJ+Y.Eo,,,, 

11.  Back  Pace 
-FoR2T:.;'k.,  +  (1  +  2FoR2)T°J,k  -  WR.T^  =T* • 

+  u,(Tt;lk  +  T;;lk  -  2T*»    )  +  u5(T*uk  -T*k ) 
+v6(T.6-T;;k    )+w6+x6(T;J«k4    -tI^  +  y.Eg,.,, 
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>n+l  ,,  -.  t-,    t-,     .—^n+l 


12.  Perimeter  1 

-2  FOR  2T»;11.1  +  (1  +  2  FOR  ,)T£,  =  T« 
+  U,(Tt;..k     +TJ5S.t   -   2T»*     )  +  U5(T*,,t-T1«Jk) 

+v4(T.4-T;;k    )+v6(T.6-T;;k    )  +  w4  +  w6 

+  X4(T  r;k4     -  Tl4)  +  X6(T*;:     -  Tl6)  +  Y,EG,,k 

13.  Bottom  Face 

(1  +  2FoR2)T";'k  -  2FoR2T";;ktl  =  T*  « 

+  U1(T'j!,k    +TJ]4lk    -    2T»«      ) 

+  F°(T*.V    +T",.k    "   2T**k     )+V3(T.3-Tt;k     ) 

+  W,+X,(Tjg     -T4.3)  +  Y1Eo,J.k 

14.  Interior 

-FoR2T";L  +(1  +2FoR2)T^'k  -FoR2T";'ktl  =  T**, 
+  U1(T*!1..    +  Tt;lk   -   2T*»     ) 
+  Fo(Tw.J.k+  T«.j.k-    2T,*).k)+V4(T.4-T;j*k     ) 
+  W4  +  X4(T»;k4     -Tl4)+Y1Eo,,k 
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15.  Top  Face 

-2FoR2T^_,  +  (1  +  2FoR2)T^k  =  T**k 
+  U,(TyiA    +  T*» ,„    -    2T-      )+   Fo(T«1Jk  +T*,,t    -2T*  t  ) 

+  V4(T.4-T«      )+W4  +  X4(t«£     "Tl^+Y.Eo,,, 

16.  Perimeter  4 

(1  +  2FoR2)T";'t  -SFoR.T^  =T*» 

+u>(Tt;-1.k  +  t;j:,.i,  -  2T,*.t  )  +  u5(T,«_1Jk  -t*.„) 

+  v3(T.3-T;;t    )+V5(T.5-T-     )  +  w3  +  w5 

+  X3(Ttj*k4     -TlJ+Y.Eo,,, 

17.  Front  Face 

-FoRsT,-;;,.,  +  (1  +  2F0R2)T";k  -FoR2T";ktl  =T» 

+  U1(T;J;,„    +T-,    -    2T*«      ) 

+  U5(Tf_,J.k   -T*,k)+V6(T.S-T**      ) 

+  W5+X5(T."4     -TtJ  +  Y.Eo,,, 
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.n+1  ,-,        n  t^    t-v    \  *r.n+l 


18.  Perimeter  2 

-2  for  2T";k_,  +  (i  +  2For2)t;:;;  =  t*  • 

+  U1(T;j!lt      +T*«k    -    2T«      )  +  U5(T,«.1Jt-T*k) 
+  V4(T-4-TJ»      )+V5(T.5-Tt;k     )+W4+W5 

+xt(T"t  -t14)+x5(t,^  -Ti5)+y1E0lJk 

19.  Corner  5 

(1  +  2F0R2)T;;,k  -  2F0R2T";,ktl  =T«« 

+  u3(T;;1.k   -  T»«     )  +  U5(T«1Jk  -T*k  ) 

+v2(t.2-t**    )+v3(T.3-T|;J»k    )+v6(T.6-T«;k    ) 

+  w2+w3  +  w6  +  x2(T*;k4    -T4.2) 

+  X3(Ttj*k      -T-a) +X6(Tr.j*k      _T-e)  +YiE°..j.k 

20.  Perimeter  6 

-FoRJ^L  +(1  +  2FoR2)T;;k  -FoR2T";kt,  -T& 
+  TJ3(Tt;.1.k    -  T»      )  +  U5(T«1Jk-  T*«k      ) 

+v2(T.2-T«;k    )+v6(T.6-T;;k    )+w2  +  w6 

+  X2(T"k      -T4-2)+X6(T"k      -Ti.)+Y1Eo1J-k 
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,n+l  ,,         ,_  _    _     .  _n+l 


21.  Corner  7 

-2 FOR XIL  +  (1  +  2 FOR  2)T°Ji  =  T*  •     +  U3  (T  «  k    -  T •  •      ) 
+  U5(T^,.,k-T«k)+V2(T.2-T;j*t     )+V4(T.4-T^k     ) 

+  V6(T.6-Tt;k     )+W1+W4+W.+X1(T!rf     -Tl.) 

+  **(*&     -Ti4)+X6(T»;:     -Tl6)+Y,Eo,,k 

22.  Perimeter  9 

(1  +  2FoR2)T";'k  -  2FoR2T:;'ktl  =  T*  • 

+  U3(T;;,k    -  T*«      )+Fo(T,«_,Jk  +T»1Jt  -2T*k  ) 

+  v2(T.2-Tt;k    )+v3(T.3-Tt;k   )  +  w2  +  w3 
+  x2(T;;k4   -t12)  +  x3(t«;:    -t!3)  +  Y,E0,,k 

23.  Right  Face 

"  WR,C  +  (1  +  2FoR2)T";k  -  FoR2T°;k4l  -T« 

+  U3(Tj;,k    -  T**      )+Fo(T*1Jk  +T*1Jk  -2T«k  ) 

+  v2(T.2-T;;k    )  +  w2  +  x2(Tt;k4    -Tla)+Y1E0uk 
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24.  Perimeter  10 

-2FoR2T';;,k_1  +  (l+2FoR2)T";>T«*     +U3(T-k    -  T*«      ) 
+  F°  (  T  * ,  .,*  +  T  *  ,,k  "  2T  *  .„  )  +  V2  (T.2  -  T  «      ) 

+  v4(T.4-T;;k    )  +  w2+w4+x2(t;;;    -t!,) 

+  X4(T*;k4     -T4.4)  +  Y1Eo,.,k 

25.  Corner  6 

(l+2F0R2)T°;1k-2F0R2T°;,k4l  =T»» 

+  U3(T;;,.k    -   T'«      )  +  U5(T«1Jk-  T«k  ) 

+v2(T.2-T;;k    )+v3(T.3-T;;k    )+v5(T.5-T«;k    ) 
+  w2  +  w3  +  w5  +  x2(t  «4    -  Tl2)  +  x3(t L;k4    -  t!3) 

+X5(T"„4  -*r!,)+yIBoVMl 

26.  Perimeter  5 

-  F°R2"Ck_,  +  (1  +  2F0R2)T";k  -  FoR2T";kt,  =T  » 
+  U3(T-k    -  T««      )  +  U5(T'1Jk-  T-'k      ) 

+  V2(T.2-TkJ«k    )+v5(T.5-Tt;k    )+w2  +  w5 

+  X2(T;A4     -T4-2)X5(T,V:     -T!5)+Y,EG,,k 
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,n  +  l  /,  rtT^     t^      *  mn+l 


27.  Corner  8 

-2F°R2T°;1k.1  +  (l  +  2FoR2)T7k  =  T««     +  U3(Tj;.lk    -  T*'k     ) 

+  U5(Tr-,).k-T'.k)+v2(T.2-T-    )+v4(T.4-T;;k    ) 
+  v5(T-5-TtA    )  +  w2+w4  +  w5  +  x2(T*;t    -Ti2) 

+x<(T*r4  -t4-4)+x5(t,v:  -tij+y.eo,^ 
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APPENDIX  C 
PROGRAM  EXPLICIT 


*  *  *  *  *  *  *  **********  *  ********  *  *  >:■■  ******  *  *  *  -•:•■  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******** 
* 

*  PROGRAM  EXPLICIT 
* 

*********************************************************************** 

* *  *  * *  *  * *  * *******  ********************  *  *  ****************  *  *  *  *  ********  *  *  *  *  * 

* 

*  EXPLICIT  METHOD  FOR  TRANSIENT  HEAT  CONDUCTION  IN  THREE 

*  DIMENSIONAL  CARTESIAN  COORDINATES 

* 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ********  *  *  *  *  * 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  f  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
* 

*  DESCRIPTION  OF  VARIABLES  USED  IN  PROGRAM  EXPLICIT 
* 

*  NOTE:  SI  UNITS  ARE  USED  IN  THIS  PROGRAM  UNLESS 

*  OTHERWISE  NOTED 

* 


*     1.  USER  SPECIFIED  VARIABLES 


* 


*  A.  GEOMETRIC  DIMENSIONS: 
* 

*  DELX-DISTANCE  INCREMENT  IN  THE  X  DIRECTION 

*  DELY-DISTANCE  INCREMENT  IN  THE  Y  DIRECTION 

*  DELZ-DISTANCE  INCREMENT  IN  THE  Z  DIRECTION 

* 

*  I-.-X  COORDINATE  OF  NODE 

*  J— -Y  COORDINATE  OF  NODE 

*  K-— Z  COORDINATE  OF  NODE 
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*  LX— LENGTH  OF  MODEL  IN  THE  X  DIRECTION 

*  LY— LENGTH  OF  MODEL  IN  THE  Y  DIRECTION 

*  LZ— LENGTH  OF  MODEL  IN  THE  Z  DIRECTION 

*  M — NUMBER  OF  NODES  IN  THE  X  DIRECTION 

*  N— -NUMBER  OF  NODES  IN  THE  Y  DIRECTION 

*  P — NUMBER  OF  NODES  IN  THE  Z  DIRECTION 

* 

*  B.  MATERIAL  PROPERTIES: 

*  CP— SPECIFIC  HEAT 

*  Kl— THERMAL  CONDUCTIVITY 

*  RHO-DENS1TY 


C.  INITIAL  DATA: 

FLUX-SURFACE  FLUX 

FREQ-NUMBER  OF  TIME  STEPS  BETWEEN  SUCCESSIVE 

TEMPERATURE  PRINTOUTS 

II HEAT  TRANSFER  COEFFICIENT 

TAMB-AMBIENT  TEMPERATURE 

UNIT-INITIAL  TEMPERATURE  OF  ALL  NODES 

VAL— LOGIC  NUMBER  TO  DETERMINE  IF  VALIDATION 

TEST  IS  TO  BE  RUN 


*  2.  NON-USER  VARIABLES 

* 

*  A.  GENERAL: 
* 

*  BIO-—BIOT  NUMBER 

*  COUNT-COUNTER  FOR  DETERMINING  THE  NUMBER  OF  ELAPSED 
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*  TIME  STEPS 

*  DELT— TIME  INCREMENT 

*  EO FOURIER  NUMBER 

*  TIME—DURATION  OF  CALCULATIONS 

*  TNEW— MATRIX  OF  TEMPERATURES  AFTER  TIME  STEP  DELT 

* 

*  B.  EXTERNAL  PROGRAMS: 
* 

*  CTIME USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

*  NOUT USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

*  TIMEO CPU  TIME  AT  BEGINNING  OF  CALCULATION'S 

*  TIME1 CPU  TIME  AT  END  OF  CALCULATIONS 

*  UMACH USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft ft  ft  ft  ft ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft ft  ft ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 
ft 

DIMENSION  T(25,25,25),  TNEW(25,25,25) 

ft 

REAL  TAMB.  H.  RHO.  ALFA,  FO.  FLUX,  R.  Rl,  R2,  Kl 

REAL  DELX.  DELY,  DFLZ,  DELT,  TIME,  TINTT.  TNEW,  BIO 

REAL  TDIFE1,  TDIFE2.  TDIFE3 

REAL  LX,  LY,  LZ 

REAL  CTIME,  TIMEO.  TIME1 
* 

INTEGER  I,  J,  K,  M,  N.  P,  COUNT,  FREQ,  VAL.  NOUT 
* 

EXTERNAL  CTIME,  UMACH 

* 

COMMON  TNEW,  TIME.  DELT,  M,  N,  P,  TDIFE1.  TDIFE2,  TDIFE3.  TINTT 
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COMMON  COUNT,  FREQ 


* 

*  INITIALIZING  CPU  TIME 

TIMEO  =  CTIMEO 

*  ><-.  *  :;-.  *  if  >;-.  if  ;v  ••■  ;f  if  if  if  if  ■>;,  if  if  $  if  if  *  *  ;•-. :;-.  if  if  :|-. :;-.  *  :;-.  if  :)-. #  jj:  if  if  if  $  #  ><:  if.  *  *  *  *  *  *  *  'I'-  *  *  t-  *  *  *  *  *  *  *  #  *  *  *  *  #  *  *  *  *  * 
if  *  *  *  *  :?.  if  ::<  j";  :;-. if  if  if  *  :<:  *  >;-.  *  *  #  *  *  *  :<;  if  *  *  *  :;-.  *  *  *  *  $  *  *  if  *  *  i;.  if  if.  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if-  if  if  if  if  if  if  if  if  if  if  if  if  if 

*  VARIOUS  PARAMETERS  TO  BE  USED  THROUGHOUT  THE  PROGRAM 

*  WILL  NOW  BE  READ  INTO  THE  PROGRAM. 

WRITE(*,*)  ENTER  TAMB,  THE  AMBIENT  TEMPERATURE.' 

READ(V)  TAMB 

WRITE(V)  ENTER  TINTT.  THE  INITIAL  TEMPERATURE.' 

READ(*,*)  TINTT 

WRITE(*,*)  ENTER  II.  THE  HEAT  TRANSFER  COEFFICIENT.' 

READ(*,*)  II 

WRITE(*,*)  ENTER  Kl,  THE  THERMAL  CONDUCTIVITY.' 

READ(V)  Kl 

WRITE(*,*)  ENTER  CP.  THE  SPECIFIC  HEAT  OF  THE  MATERIAL.' 

READ(*,*)  CP 

WRITE(*,*)  ENTER  RHO,  THE  MATERIAL  DENSITY.' 

READ(*,*)  RHO 

WRITE(V)  ENTER  FLUX.' 

READ(V)  FLUX 

WRITE(*,*)  ENTER  LX,  THE  LENGTH  IN  THE  X  DIRECTION.' 

READ(*,*)  LX 

WRITE(*,*)  ENTER  LY,  THE  LENGTH  IN  THE  Y  DIRECTION.' 

READ(*,*)  LY 

WRITE(V)  ENTER  LZ.  THE  LENGTH  IN  THE  Z  DIRECTION.' 
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READ(*?*)  LZ 

WRITE(*,*)  ENTER  M,  THE  NUMBER  OF  NODES  IN  THE  X  DIRECTION'.' 
READ(V)  M 

WRITE(*,*)  'ENTER  N,  THE  NUMBER  OF  NODES  IN  THE  Y  DIRECTION.' 
READ(V)  N 

WRITE(*,*)  ENTER  P,  THE  NUMBER  OF  NODES  IN  THE  Z  DIRECTION.' 
READ(v )  P 

WRITE(*,*)  ENTER  FREQ,  THE  NUMBER  OF  TIME  STEPS  BETWEEN" 
WRITE(*,*)  SUCCESSIVE  PRINTINGS.' 
READ(*,*)  FREQ 

WRITE(*,*)   ENTER  VAL:  IF  YOU  WANT  THE  VALIDATION  SUBROUTINE- 
WRITE^,*)  CALLED.  USE  1;  IF  THE  VALIDATION  SUBROUTINE  IS  NOT' 
WRITE{v  )  DESIRED.  USE  0.' 
READ(:\*)  VAL 


■'       CALCULATIONS  OF  CONSTANTS  TO  BE  USED  THROUGHOUT  THE 
*       PROGRAM 

COUNT  =  0 
TIME  =  0.0 

DELX=LX  (M-l) 

DELY=LY.(N-1) 

DELZ=LZ(P-1) 
* 

R=DELX(DELY*DELZ) 
R1  =  (DELX**2)(DELY**2) 
R2  =  (DELX;:*2)(DELZ**2) 

ALFA=K1  (RHO*CP) 
BIO=II  Kl-DELX 
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FO  =  0.5(1  +  R1  +  R2  +  BIO*SQRT(R2)) 
DELT  =  FO*(DELX**2)  ALFA 

*  NOTE:  THE  FOLLOWING  EXPRESSION  FOR  DELT  WAS  USED  FOR 

*  VALIDATING  THE  EXPLICIT  TECHNIQUE  WITH  THE  CLOSED-FORM 

*  SOLUTION. 
* 

*  DELT  =  0.125*(DELY**2)/ALFA 

* 

*  >:-.  *  *  *  *  *  *  *  *  *  *a  *  *  * *  * .-:-.  $  $  *  *  *  *  *  *  4  * *  *  *  *  *  *  *  *  *  *  .•:-  *  *  *  *  *  *  #  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

*  INITIALIZE  ALL  TEMPERATURES  TO  TINTT,  THE  INITIAL 

*  TEMPERATURE. 

DO  10  1=1,  M 
DO  15  J=  1.  N 
DO  20  K=1,P 

TNEW(U,K)  =  TINTT 

20  CONTINUE 

15       CONTINUE 
10   CONTINUE 


*  *  >;-.  *  *  *  .1: #  *  *  *  *  *  *  *  *  *  *  *  *  * s  *  * .-;-.  *  *  *  *  *  *  *  *  *  *  *  ******  *  *  *  *  *  *  *  *  *  ****************  #  *  *  * 

*  *  * * *  * * * * * *  *  * * * *  * * * *  *  * * *********************************************** * 

*  THE  OLD  TEMPERATURES  WILL  NOW  BE  SAVED  FOR  FUTURE  USE 

*  IN  THE  TEMPERATURE  EQUATIONS. 
* 

DO  30  1=1,  M 
DO  35  J  =1,  N 
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DO40K=l,P 

T(I.J.K)=TNE\V(IJ.K) 

ft 

40  CONTINUE 

35       CONTINUE 

30  CONTINUE 
* 

*  *  .-;-.  *  *  *  *  ::-.  *  *  * *  *  *  *  *  :;-. *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ********  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

*  *  *  *  *  ;;-.  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ********  *  *  *  *  *  *  *  *  *  *  *  * 
* 

*   INCREMENTING  TIME  AND  COUNTER 

1  COUNT  =  COUNT  +  1 

TIME  =  TIME  +  DELT 
* 


*  NODE  EQUATIONS  FOR  THE  THREE  DIMENSIONAL  BLOCK  ARE 

*  NOW  PRESENTED. 


INTERIOR  NODES 

DO  50  I  =  2,  M-l 
DO  55  J  =  2.  N-l 
DO  60  K  =  2,  P-l 

TNEW(1,J,K)=  T(I.J,K)  +  Rl*FO*(  T(I,J-1,K)  +  T(I,J+  l.K)  -  T 
&    T(IJ.K)  )  +  R2*FO*(  T(I,J,K+1)  +  T(I.J.K-l)  -  2*T(1,J,K)  ) 
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&     +  FO*(T(I  +  l.J,K)  +  T(I-1,J,K)  -  2*T(UfK) ) 

60  CONTINUE 

55       CONTINUE 
50   CONTINUE 

* 

* :?.  fr-  *  *  *  $  *  :;•■  *  >:-•  =:-•  *  *  *  fr-  *  *  *  *  *  *  *  *  *  *  *  >:•  *  *  ■■'■  *  *  *  *  <■■  *  *  *  *  *  ••!■•  *  *  *  *  #  *  *  *  *  *  *  #  *  <■•  *  *  *  *  *  *  *  #  *  *  *  *  *  *  *  * 

j[.   J>,    .'.   jj.   Jt   A  f,   J,   .V   A  ;»-  ;•*  .'.   .*-   *  A  ;»-   ;V  jj.  ;V   A  ;|-   A   ;V   A  ;|.   A   A   jV   A  J*-.  £  A   A  £  ,',   V,  ^  A  ,|,  ;».   A   A,  £   J-  A   A   ?J,   V-    .|(   j|.    A  A  £  J.   .«,  .£  ;',  jj,  jj.   A  j»,  ,',   .«,   *  J.  jf.   J.  gfc  jL  j«,   * 

*  CORNER  NODES 

*  CORNER  NR.  1 

1=1 

J=l 
K=l 

TNEW(I.J.K)=  T(I.J.K)  +  2*R2*FO*(  T(I,J,K+1)-  T(I,J,K)  )  + 
&  2*Rl*FO*(  T(U  +  l.K)  -  T(U.K)  )  +  2*F0*(  T(I+1,J,K)  - 
&  T(I.J.K))  +  2*F0*R1*DELY*FLUX/K1 


*  CORNER  NR.  2 

I  =  M 

J=l 

K=l 

TNEW(U.K)  =  T(I,J,K)  +  2*R2*FO*(T(I,J,K+l)-T(I,J,K))  + 

&    2*Rl*FO*(  T(I,J+1,K)  -  T(I.J,K)  )  +  2*FO*(  T(M,J,K)  - 

&    T(I,J,K)  )  +  2*F0*R1*DELY*FLUX/K1 
* 

* 
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*  CORNER  NR.  3 
* 

1  =  1 
J=l 
K  =  P 

TNEW(I,J,K)  =  T(I,J,K)  +  2*FO*(  T(I  +  1,J,K)  -  T(IJ,K)  )  + 
&  2*Rl*FO*<  T(I,J  +  1,K)-T(I.J,K)  )  +  2*R2*FO*(  T(I,J,K-1) 
&  T(I,J,K))  +  2*F0*R1*DELY*FLUX/K1 


*  CORNER  NR.  4 

I  =  M 

J=l 
K  =  P 

TNEW(I.J.K)  =  T(I,J,K)  +  2*FO*(  T(I-U,K)  -  T(I.J.K)  )  + 
&  2*RI*FO*(  T(I.J+  l.K)  -  T(U,K)  )  +  2*R2*FO*{  T(IJ,K-1 
&  T(I.J.K)  )  4-  2::;FO:;Rl-DELY::;FLUX  Kl 


*  CORNER  NR.  5 

1=  1 

J  =  N 

K=l 
* 

TNEW(1,N,1)  =  T(l,N.l)  +  2*FO*(  T(2   ,N,1)  -  T(1,N,1)  )  + 

&    2*Rl*FO*(  T(i,N-l.l)  -  T(l,N,.l)  )  +  2*R2*FO*(  T(1,N,   2) 

&    T(l,N.l)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB  -  T(1,N,1) ) 
* 

* 
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*  CORNER  NR.  6 

# 


I  =  M 
J  =  N 
K=l 


TNEW(U,K)  =  T(I,J,K)  +  2*FO*(  T(I-1,J,K)  -  T(I,J,K) )  + 
&    2*Rl*FO*(  T(I,J-1,K)  -  T(IJ.K))  +  2*R2*FO*(  T(I,J,K  +  1) 
&    T(I,J,K)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB  -  T(I,J,K)  ) 


*  CORNER  NR.  7 

1=1 
J  =  N 
K  =  P 

TNEW(LJ.K)  =  T{LJ.K)  +  2*FO*(  T(I  +  1,J,K)  -  T(I.J.K)  )  + 
&  2*Rl*FO*(  T(I.J-l.K)  -  T(I.J.K)  )  +  2*R2*FO*(  T(I,J,K-1) 
&    T(I,J,K)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB  -  T(I.J,K)  ) 


CORNER  NR.  S 

I  =  \  1 
J  =  N 
K  =  P 


* 


TNEW(I,J,K)  =  T(I,J,K)  +  2*FO*(  T(I-1,J,K)  -  T(I,J,K)  )  + 
&    2*Rl*FO*(  T(I,J-1,K)  -  T(IJ,K) )  +  2*R2*FO*(  T(I,J,K-1) 
Si    T(I,J,K)  )  +  2*FO:;-BIO*(R1**0.5)*(  TAMB  -  T(I,J,K)  ) 


><■- :)-.  t;.  :)-.  )!-.  t;.  s«l  ;;-.  :';.  jj:  •'.■.  >\:  :'-.  :]-.  :|-.  :;-.  >\:  %  .•;-.  :'-.  :>-.  ;;-.  .J; .;-.  :[:  ;;-.  >;». ;;-.  r)-. :)-.  >|-.  %.  >•-.  *  $  #  f-.  if.  1;.  :Y.  $  i[.  <-.  # :'?.  ?;.  >,v.  *  *  *  !':■  ft  *  *  &  >h  <■.  *  *  <-.  ir.  >Y-  >!'•  *  *  *  iji  $  *  *  *  * 
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* 

*  ADIABATIC  SURFACES 
* 

*  FRONT  VZ  SURFACE 

DO  70  J  =  2.  N-I 

DO  75  K  =  2,  P-l 

I  =  M 
* 

TNEW(IJ.K)  =  T(I,J,K)  +  2*FO*(  T(I-1,J,K)  -  T(I,J.K)  )  + 
&   Rl*FO*(T(I,J-l,K)  +  T(I,J  +  1,K)-2*T(U,K))  + 
&   R2*FO*{  T(I,J,K-1)  +  T(I.J.K+  1)  -  2*T(I,J,K)  ) 

75       CONTINUE 
70  CONTINUE 

*  BACK  VZ  ADIABATIC  SURFACE 

DO  SO  J  =  2,  N-l 
DO  85  K  =  2.  P-l 
1=1 

TNE\V(I,J,K)  =  T(I.J.K)  +  2*FO*(  T(I  +  1J,K)  -  T(I.J.K)  )  + 

&   Rl*FO*(  T(I,J-1,K)  +  T(I,J+  l.K)  -  2*T(I,J,K)  )  + 

&   R2*FO*(  T(I,J,K-1)  +  T(I,J,K+1)  -  2*T(I,J,K)  ) 
* 

85       CONTINUE 
80  CONTINUE 


y-  y.  y;  y.  y,  y.  j.  y.  y.  y.  y.  y,  y.  y.  y.  y.  y.  y.  y,  y.  y,  y.  y,  y.  y.  y.  y.  y.  y.  y.  y.  y.  y,  y.  y.  y.  y.  j,  y.  .».  j.  y.  y«  y-  y.  y.  y.  y~  y;  y,  4.  y-  y.  .j.  y.  J.  J-  y.  y-  y.  y.  y-  y.  y.  J-  y~  4.  y-  y.  y.  ju  y. 
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*  BOTTOM  XV  ADIABATIC  SURFACE 

-I" 

DO  90  1  =  2,  M-l 
DO  95  J  =  2,  N-l 
K=l 

TNE\V(I,J.K)  =  T(U,K)  +  FO*(  T(I+1,J,K)  +  T(I-1,J,K) - 
&  2*T(U,K)  )  +  Rl*FO*(  T(I,J-1,K)  +  T(I,J  +  1,K)  -  2*T(I,J,K)  )  + 
&    2*R2*FO*(  T(U,K+  1)  -  T(I,J,K) ) 

95       CONTINUE 
90   CONTINUE 


*  TOP  XY  ADIABATIC  SURFACE 

DO  100  1  =  2.  M-l 
DO  105  J  =  2.  N-l 
K  =  P 

TNEW(IJ,K)  =  T(IJ.K)  +  FO*(  T(I  +  1,J,K)  +  T(I-1,J,K) - 
&   2-T(IJ.K)  )  +  Rl*FO*(  T(IJ-UK)  +  T(I,J+1,K)  -  2*T(U,K)  )  + 
&  2*R2*FO*(  T(I.J.K-l)  -  T(I.J.K)  ) 

105      CONTINUE 
100      CONTINUE 

* 

*  *  *  *  * *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  si-  *  *  *  *  *  ****************************  *  *  *  *  *  *  * 

*  *  *  *  *  *  *  *  *  *  *  *  * *  *  *  *  *  *  *  *  *  *  *  * .-:-.  *  *  *  *  *  *  ******************  *  *  ****************  *  *  * 
* 

*  RIGHT  XZ  CONNECTIVE  SURFACE 
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DO  110  1  =  2.  M-l 
DO  115  K  =  2,  P-l 
J  =  N 

TNEW(U,K)  =  T(U,K)  +  FO*(T(I+l,J,K)  +  T(I-1,J,K)  - 
&  2*T(U,K)  )  +  2*Rl*FO*(  T(I,J-1,K)  -  T(I.J.K)  )  +  R2*FO* 
&    (  T(I,J,K  +  1)  +  T{IJ,K-1)-  2*T(I,J,K)  )  + 
&    2*FO*BIO*(R1**0.5)*<  TAMB  -  T(I,J,K)  ) 

115       CONTINUE 
110  CONTINUE 


*       LEFT  XZ  FLUX  SURFACE 
* 

DO  120  1  =  2.  M-l 

DO  125  K  =  2.  P-l 

J=  1 
* 

TNEW(I.J.K)  =  T(I.J.K)  +  FO*<  T(I-1,J,K)  +  T(I  +  1,J,K) 
&   2*T(I,J,K)  )  +  2*Rl*FO*<  T(I,J+1,K)  -  T(I.J.K)  )    + 
6c     R2::FO;:(  T(IJ.K-l)  +  T(U,K+1)-  2*T(I.J,K)  )  + 
&    2*FO*Rl*DELY*FLUX  Kl 

125       CONTINUE 
120   CONTINUE 


*  *  *  *  *  *  if  if  if  if  if  if  if  *  *  if  if.  if  if.  if  if  if  if  if  if  if  if  if  if  if  if  if  if  *  *  if  *  *  *  if  if  *  ****************************** 
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*  OUTER  PERIMETER  SURFACES 

*  PERIMETER  NR.  1 

DO  130  J  =  2,  N-l 

1=1 

K  =  P 
* 

TNEW(I,J.K)  =  T(I,J,K)  +  Rl*FO*(  T(I,J-1,K)  +  T(I,J+1,K) 
&  2*T(I,J,K))  +  2*FO*(T(I  +  l,J,K)-T(I,J,K))  + 
&  2*R2*FO*(  T(I,;.K-1)  -  T(U,K)  ) 

130  CONTINUE 


PERIMETER  NR.  2 

DO  135  J  =  2.  N-l 
I  =  M 
K  =  P 

TNEW(U.K)  =  T(IJ.K)  +  Rl*FO*(  T(U-l.K)  +  T(IJ  +  1,K; 
&  2*T(U,K)  )  +  2*FO*(  T(I-1,J,K)  -  T(I.J.K)  )  + 
&  2*R2*FO*<  T(U,K-1)  -  T(I,J,K) ) 

135  CONTINUE 


>*. 

PERIMETER  NR. 

3 

* 

DO  140  J  =  2,  N- 

1 

1=1 

K=l 

* 

9S 


TNE\V(U,K)  =  T(IJ.K)  +  Rl*FO*(  T(U-l.K)  +  T(I,J+1,K) 
&    2;::T(IJ.K)  )  +  2*F0*(  T(I  +  1?J,K)  -  T(IJ.K)  )  + 
&    2*R2*FO*(  T(I,J,K+1)  -  T(I.J.K)  ) 

140  CONTINUE 

* 

* 

*  PERI  METER  NR.  4 
* 

DO  145  J  =  2,  N-l 
I  =  M 
K=l 

TNEW(I.J.K)  =  T(IJ.K)  +  Rl*FO*(T(I,J-l.K)  +  T(U  +  1,K) 
&    2*T(IJ,K)  )  +  2*FO*(  T(I-U.K)  -  T(I,J,K)  )  + 
&    2*R2*FO*(  T(U,K  +  1)  -  T(I,J,K)  ) 

145  CONTINUE 


PERIMETER  NR.  5 

DO  150  K=2,  P-l 
I  =  M 
J  =  N 

TNEW(I,J,K)  =  T(I,J,K)  +  R2*FO*(  T(I,J,K+1)  +  T(I,J,K-1) - 
&  2*T(I,J,K) )  +  2*Rl*FO*(  T(U-l.K)  -  T(I,J,K) )  + 
&  2*FO*(  T(I-1,J,K)  -  T(I,J,K)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB 
&  T(I,J,K)) 

150  CONTINUE 
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*  PERIMETER  NR.  6 

DO  155  K  =  2,  P-l 
1  =  1 
J  =  N 

TNEW(I,J,K)  =  T(U,K)  +  R2*FO*(T(I,J,K+l)  +  T(1,J,K-1) - 
&    2*T(I,J,K) )  +  2*Rl*FO*(  T(I,J-1,K)  -  T(I,J,K)  )   + 
&    2*FO*(  T(I+1,J,K)  -  T(U,K) )  +  2*FO*BIO*(R1**0.5)*(  TAMB 
&    -T(I.J.K)) 

155  CONTINUE 


*  PERIMETER  NR.  7 

DO  160  K  =  2,  P-l 
I  =  M 
J=l 

TNEW(I.J.K)  =  T(IJ?K)  +  FO*R2*(  T(I,J,K+1)  +  T(I,J,K-1) - 
&     2:;T(I.J.K)  )  +  2*FO*(  T(I-1J,K)  -  T(I.J.K)  )  + 
&   2*FO*Rl*<  T(I,J+1,K)  -  T(I,J,K)  )  +  2r:TO;::Rl*DELY:;TLUX/Kl 

160  CONTINUE 

*  PERIMETER  NR.  8 

* 

DO  165  K=  2,  P-l 

1  =  1 

J=l 
* 

TNEW(I,J,K)  =  T(IJ,K)  +  FO*R2*(T(I,J,K+l)  +  T(U,K-1)  - 
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&  2*T(I,J,K)  )  +  2*FO*<  T(I+  l.J.K)  -  T(I.J.K)  )  + 

&  2*FO*Rl*(  T(U  +  1.K)  -  T(l.J.K)  )  +  2*F0*R1*DELY*FLUX  Kl 

165  CONTINUE 
* 

*  PERIMETER  NR.  9 

DO  170  1  =  2.  M-l 
J  =  N 
K=l 

ft 

TNEW(I.J.K)  =  T(I,J,K)  +  2*FO*Rl*(  T(IJ-l.K)  -  T(I,J,K)  )  + 
&    2*FO*R2*<  T(I,J,K+1)-  T(I.J.K)  )  +  FO*(  T(I  +  1,J,K)  + 
&    T(I-1.J,K>  -  2*T(I,J,K)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB  - 
&    T(I,J,K)) 

170  CONTINUE 


*  PERIMETER  NR.  10 

DO  175  1  =  2.  M-l 
J  =  N 
K  =  P 

TNE\Y(I.J,K)  =  T(I,J,K)  +  2*F0*R1*(  T(I,J-1,K)  -  T(I,J,K)  ) 
&  2*FO*R2*(  T(I,J,K-1)  -  T(I,J.K)  )  +  FO*(  T(I+  1,J,K)  + 
&  T(I-1,J,K)  -  2*T(I,J,K)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB  - 
&  T(I,J,K)  ) 

175  CONTINUE 
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*  PERIMETER  NR.  11 

DO  180  1  =  2,  M-l 
J=l 

K  =  P 

* 

TXEW(I,J,K)  =  T(I,J,K)  +  FO*(T(I  +  l,J,K)  +  T(I-1,J,K) - 
&  2*T(I,J,K))  +  2*FO*Rl*(T(I,J+l,K)-T(I,J,K))  + 

&  2*FO*R2*(  T(I,J,K-1)  -  T(I,J,K)  )  +  2*FO*Rl*DELY*FLUX/Kl 

* 

180  CONTINUE 
* 

* 

*  PERIMETER  NR.  12 

DO  185  1  =  2,  M-l 
J=  1 
K=l 

TNEW(I,J,K)  =  T(I.J.K)  +  FO*(  T(I  +  1,J,K)  +  T(I-l.J.K) - 
&   2*T(U,K))  +  2*FO*Rl*(  T(I,J+1,K)-  T(IJ.K)  )  + 
&  2*FO*R2*(  T(IJ.K+  1)  -  T(I,J,K)  )  +  2*FO*Rl*DELY*FLUX  Kl 

185  CONTINUE 

* 

*  * * *  & *  * **************  *  * *  *  *  *  ********************************************* 
********  *  «  *  «  *  *  «  *  *  «  *  *  *  *  *  ft  *.  *.  *  * ,:-.  *  *  *  *.  *.  *.  *  *.  ft  *. «  *  *  *  *  *  «  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  «  *  *  *  *  *  *  * 
* 

*  UPDATING  THE  OLD  NODE  TEMPERATURES  TO  THE  NEW 

*  NODE  TEMPERATURES. 

DO  200  1=1,  M 
DO  205  J  =  1 .  N 


102 


DO  210  K=l,  P 
* 

T(I.J.K)=TNEW(I.J,K) 
* 

210         CONTINUE 
205      CONTINUE 

200  CONTINUE 

* 

£  *  *  *  if  if  *  if  ;;-.  if  if  if  if  if.  if  if  if  if  if  if  if  if  if  if  if  if  *  *  :'-.  if  if  if  if  if  if  if  *  *  *  if  *  *  *  i-.  if  *  *  if  *  *  *  if  if  £  :;-.  *  if  #  <-.  *  j";  if  if  if  if  if  if  if  i;.  if  if 
if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  *  if  if  if  if  if  *  *  *  if  if  if  if  if  if  if  if  if  #  *  *  if  *  *  *  *  *  #  *  if  if  if  if  if  if  *  *  *  if  if  if  if  if  if  if  if  *  if  if  if  if  if  if  if  if  if 
* 

*  THIS  PART  OF  PROGRAM  DETERMINES  IF  SUBROUTINE  VALID  OR 

*  SUBROUTINE  VALID  IS  TO  BE  CALLED.    IF  THE  USER  DESIRES  TO 

*  VALIDATE  THE  PROGRAM  IN  CONJUNCTION  WITH  PROGRAM  BRIAN 

*  AND  PROGRAM  VALID.  THEN  THE  SUBROUTINE  OUTPUT  WILL  BE 

*  BYPASSED. 

IF(VAL  .NE.  l)GOTO  250 
IF(T1ME  .EQ.  DELT)  CALL  VALID 
IF(COUNT  .NE.  TREQ)  GO  TO  300 
CALL  VALID 
GO  TO  300 

250   IF(TIME  .EQ.  DELT)  CALL  OUTPUT 

IF(COUNT  .NE.  FREQ)  GO  TO  300 

CALL  OUTPUT 
* 


300   IF  (TIME  .LE.  3600)  GO  TO  1 


NOTE:  THE  TIME  PERIOD  WAS  ARBITRARILY  TAKEN 
AS  3600  SECONDS  (1  HOUR). 


* 


PRINTJ 
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PRINT* 

* 

*  CALCULATING  AND  PRINTING  CPL'  TIME 

>:-■ 

TIM  El  =  CTIMEO 
CALL  UMACH(2,NOUT) 

WRITE(NOUT,*)  CPU  TIME  (SECONDS)  =',  TIME1-TIMEO 

* 

STOP 

END 

* 

'•       THIS  SUBROUTINE  WILL  BE  USED  FOR  PRINTING  THE  NODE 

*  TEMPERATURES. 

SUBROUTINE  OUTPUT 

DIMENSION  T( 25,25.25).  TNE\V( 25,25.25) 

REAL  TAMB.  H.  RHO.  ALFA.  FO.  FLUX,  R.  Rl.  R2,  Kl 

REAL  DELX,  DELV,  DELZ.  DELT,  TIME.  TINIT,  TNEW,  BIO 

REAL  TDIFE1.  TDIFE2,  TDIFE3 

REAL  LX.  LY,  LZ 

REAL  CTIME,  TIMEO,  TIME1 

INTEGER  I,  J,  K,  M,  N,  P,  COUNT,  FREQ,  VAL,  NOUT 

COMMON  TNEW,  TIME,  DELT,  M,  N,  P,  TDIFE1,  TDIFE2,  TDIFE3,  TINTT 

COMMON  COUNT,  FREQ 

* 

WRITE(*,*)  TIME  =  ',TLME 
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PRINT- 
* 

350   DO  370  K=l,  P 


WRITE(*,*)  TEMPERATURE  DISTRIBUTION  ON  PLANE' 
VVRITE(6,360)'K-',K 

360   FORMAT(A3,I2) 
PRINT- 
PRINT  380,  ((TNE\V(I,J,K),  J=  1,N),  I=1,M) 

380   F0RMAT(1X.F6.1.1X.F6.1.1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1, 
&   1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,7) 

PRINT* 
PRINT- 

370   CONTINUE 

*       REINITIALIZING  THE  COUNTER  TO  ZERO 


COUNT  =  0 

RETURN 
END 


* 


■  -.'  ".'  '.'  •.*•  v  v 


* 


* 


SUBROUTINE  VALID 

DIMENSION  T(25,25,25),  TXEW(25,25,25) 

REAL  TAMB,  H,  RHO,  ALFA,  FO,  FLUX,  R.  Rl,  R2,  Kl 
REAL  DELX.  DELY,  DELZ.  DELT,  TIME,  TINTT,  TNEW,  BIO 
REAL  TDIFE1,  TDIFE2.  TDIFE3 
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REAL  LX,  LY,  LZ 

REAL  CTIME,  TIMEO,  TIME1 

INTEGER  I,  J,  K,  M,  N,  P,  COUNT,  FREQ.  VAL,  NOUT 

COMMON  TNEW,  TIME,  DELT,  M,  N,  P,  TDIFE1,  TDIFE2,  TDIFE3,  TINTT 

COMMON  COUNT,  FREQ 
* 

TDIFE1  =  TNEW(  5,11.  5)-  TINTT 
TDIFE2  =  TNEW(  5,  5.  5)-  TINTT 
TDIFE3  =  TNEW(  5,  1,  5)-  TINTT 

IF(TIME  .NE.  DE:  T)  GO  TO  450 

PRINT* 

PRINT* 

WRITE(V)  TIME(SEC)  TDIFE1   TDIFE2   TDIFE3' 

WRITE(*,*)  ' ' 

450   PRINT  460.  TIME.  TDIFE1.  TDIFE2.  TDIFE3 
460    FORMAT(lX.FS.3.3X.F7.3,3X.F7.3.3X.F7.3) 

*  REINITIALIZING  THE  COUNTER  TO  ZERO 

COUNT  =  0 

RETURN 
END 

*  *  *  *  *  *  ***************************************************************** 

*  *  *  *  *  *  *  *  *  *  *  *  ******  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *****************  *  *  ********  *  *  *  *  *  ****** 
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APPENDIX  D 
PROGRAM  BRIAN 


*  PROGRAM  BRIAN 

* 

*************  ******* ******. *******************: **.*.***********************. 

* 

*  BRIAN'S  METHOD  FOR  TRANSIENT  HEAT  CONDUCTION  IN  THREE 

*  DIMENSIONAL  CARTESIAN  COORDINATES 
* 

*.  *  *  *  *.  *  *  *********  ft  <****:>****  ft  *********  ft  *  *  *  *  ft  **«*.**********«*****.**  ^^ 

*******  *  *  .•:•.  *****  *  *  *  ***************************************************  *  * 

* 

*  DESCRIPTION  OF  VARIABLES  USED  IN  PROGRAM  BRIAN 

* 

0       NOTE:  SI  UNITS  ARE  USED  IN  THIS  PROGRAM  UNLESS 

*  OTHERWISE  SPECIFIED 


*     1.  USER  SPECIFIED  VARIABLES 


*       A.  GEOMETRIC  DIMENSIONS: 

DELX-DISTANCE  INCREMENT  IN  THE  X  DIRECTION 
DELY-DISTANCE  INCREMENT  IN  THE  Y  DIRECTION 
DELZ-DISTANCE  INCREMENT  IN  THE  Z  DIRECTION 

I— -X  COORDINATE  OF  NODE 
J— -Y  COORDINATE  OF  NODE 
K— - Z  COORDINATE  OF  NODE 
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*  LX— LENGTH  OF  MODEL  IN  X  DIRECTION 

*  LY— LENGTH  OF  MODEL  IN  Y  DIRECTION 

*  LZ— LENGTH  OF  MODEL  IN  Z  DIRECTION 


* 


*  M— -NUMBER  OF  NODES  IN  THE  X  DIRECTION 

*  N — NUMBER  OF  NODES  IN  THE  Y  DIRECTION 

*  P— -NUMBER  OF  NODES  IN  THE  Z  DIRECTION 


B.  MATERIAL  PROPERTIES: 

CP— SPECIFIC  HEAT 

Kl— THERMAL  CONDUCTIVITY 

RHO-DENSITY 


C.  INITIAL  DATA: 
SUBSCIPTS  HAVE  THE  FOLLOWING  MEANING: 
1-LEFT  FACE 
2-RIGHT  FACE 
3-BOTTOM  FACE 
4-TOP  FACE 
5-FRONT  FACE 
6-BACK  FACE 

BIOl.2,3,4,5,6 BIOT  NUMBER 

DELT TIME  INCREMENT 

*  EPS  1,2,3,4,5,6 EMISSIVITY 

*  FLUX  1,2, 3,4,5,6— -SURFACE  FLUX 

FREQ NUMBER  OF  TIME  STEPS  BETWEEN  SUCCESSIVE 

TEMPERATURE  PRINTOUTS 

*  GEN ENERGY  GENERATION  TERM 

HI. 2. 3.4.5.6 HEAT  TRANSFER  COEFFICIENT 

SIG  1.2. 3.4,5.6 STEFAN-BOLTZMANN  CONSTANT  (USE  0  IF  NO 
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* 


* 


*  RADIATION  HEAT  TRANSFER;  USE  5.67E-8  IF 

*  RADIATION  HEAT  TRANSFER  PRESENT) 

*  TAMB  1,2,3,4,5,6— -AMBIENT  TEMPERATURE 

*  TINIT INITIAL  TEMPERATURE  OF  ALL  NODES 

*  VAL LOGIC  NUMBER  TO  DETERMINE  IF  VALIDATION 

*  TEST  IS  TO  BE  RUN 


D.  ADDITIONAL  VARIABLES  FOR  SATELLITE  APPLICATIONS: 

ABS1,2,3,4,5,6 ABSORPTIVITY 

ALBCO ALBEDO  COEFFICIENT 

ALT ALTITUDE  OF  SATELLITE  IN  KILOMETERS 

EARTH EARTH  FLUX  (NOTE:  THE  ABSORPTIVITY  FOR 

EARTH  FLUX  HAS  THE  SAME  VALUE  AS  THE 
EMISSIVITY  FOR  RADIATION  HEAT  TRANSFER 
SINCE  BOTH  ARE  IN  THE  INFRA  RED  REGION) 

ECLIPS-— - PERIOD  OF  TIME  IN  MINUTES  THE  SATELLITE 

IS  IN  THE  SHADOW  OF  THE  EARTH 

FA GEOMETRIC  FACTOR  FOR  ALBEDO  FLUX 

FE GEOMETRIC  FACTOR  FOR  EARTH  FLUX 

SAC1. 2. 3,4.5,6 SOLAR  ASPECT  COEFFICIENTS 

SOLAR SOLAR  FLUX 


*  2.  NON-USER  VARIABLES 

* 

*  A.  GENERAL: 
* 

*  A.B.C,D COEFFICIENT  VECTORS  FOR  SOLVING  THE 

*  TEMPERATURE  EQUATIONS  IN  SUBROUTINE  TRIDAG 

*  BETA VECTOR  OF  INTERMEDIATE  COEFFICIENTS  SOLVED 
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* 


*  SUBROUTINE  TRIDAG 

*  BIOTl,2,3,4,5,6--BIOT  NUMBER 

*  COUNT COUNTER  FOR  DETERMINING  THE  NUMBER  OF 

*  ELAPSED  TIME  STEPS 

*  FO FOURIER  NUMBER 

*  GAMMA VECTOR  OF  INTERMEDIATE  COEFFICIENTS 

*  SOLVE  IN  SUBROUTINE  TRIDAG 

*  IF.L NUMBERS  CORRESPONDING  TO  THE  FIRST  AND  LAST 

EQUATIONS  TO  BE  SOLVED  IN  SUBROUTINE  TRIDAG 

QDOT MATRIX  OF  NODES  DEALING  WITH  ENERGY 

GENERATION 
T MATRIX  OF  TEMPERATURES  AFTER  HALF-TIME  STEP 

IN  THE  Z  DIRECTION 
TEMP TEMPORARY  STORAGE  VECTOR  FOR  TEMPERATURES 

CALCULATED  IN  SUBROUTINE  TRIDAG 

TIME DURATION  OF  CALCULATIONS 

TSTAR1 MATRIX  OF  TEMPERATURES  AFTER  HALF-TIME  STEP 

IN  THE  X  DIRECTION 
TSTAR2 MATRIX  OF  TEMPERATURES  AFTER  HALF-TIME  STEP 

IN  THE  Y  DIRECTION 


B.  ADDITIONAL  VARIABLES  FOR  SATELLITE  APPLICATIONS: 

*  ALBED  1,2. 3,4.5,6— ALBEDO  FLUX  RECEIVED  ON  A  SURFACE 

*  DIST SUM  OF  EARTH  RADIUS  AND  SATELLITE  ALTITUDE 

*  EARTH  1,2,3,4.5,6—  EARTH  FLUX  RECEIVED  ON  A  SURFACE 

*  Ml GRAVITATIONAL  CONSTANT 

*  PERIOD THE  TIME  FOR  ONE  SATELLITE  ORBIT 

*  RE RADIUS  OF  THE  EARTH 

*  S0LAR1,2,3,4,5,6— SOLAR  FLUX  RECEIVED  ON  A  SURFACE 

*  SUN THE  TIME  IN  MINUTES  THE  SATELLITE  RECEIVES 

*  SUNLIGHT  DURING  ONE  ORBIT 
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*  C.  VARIABLES  FROM  EXTERNAL  PROGRAMS: 

*  CTIME USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

*  NOUT USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

TIMEO CPU  TIME  AT  BEGINNING  OF  CALCULATIONS 

*  TIME1 CPU  TIME  AT  END  OF  CALCULATIONS 

*  UMACH USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 


«*.    .'.    «/.    .%    .'.    »•-    «.•-    -•-    -•;     S.    J*    •>-     -'-    .'-    «.'-    .*.    .f-     •'-    ;*;    _-'-     .f.    »*;    ;"-    rf;    rf;    -**    «.*.    v';    -'-     •>-    J-    •>■     -*;    •>-    J-    »';    «T-    J-    «f-    ;"-    -lj    •.';    ■>»    rf-    J.    J-    rf*    jf»     .'»    J-    J-    J-    V»    J;    •*;    «f;    *'»    J;    J*.    V-    jb    J>.     »*.    «*.    J.    O. 

J*- 

DIMENSION  A(  30),  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA{  30),  GAMMA{  30).  QDOT(30.  30.  30) 
DIMENSIONS    30,   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2.  30.   30,   30) 

REAL  TINIT.  TSTAR1.  TSTAR2,  T.  TEMP 

REAL  CP,  Kl.  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX.  LY.  LZ.  DELX.  DELY,  DELZ 

REAL  A,  B,  C,  D,  BETA.  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3.  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

REAL  SIG1,  SIG2,  SIG3.  SIG4,  SIG5,  SIG6 

REAL  Ul,  U2,  U3,  U4.  U5 

REAL  VI,  V2.  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  W6 

REAL  XI,  X2.  X3,  X4,  X5,  X6 
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REAL  EPS1.  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN.  VI 

REAL  CTIME,  TIMEO.  TIME1 

REAL  SOLAR.  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  ML' 

REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

REAL  SAC1,  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 

REAL  PI,  P2,  P3.  P4,  P5,  P6 

INTEGER  I.  J.  K.  M,  N.  P.  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI,  ANS2.  ANS3.  VAL,  NOUT 

EXTERNAL  CTIME.  UMACH 

COMMON  TINTT,  TSTAR1.  TSTAR2.  T,  TEMP 

COMMON  CP.  Kl.  RHO,  R.  Rl.  R2.  TIME.  DELT 

COMMON  LX.  LV,  LZ.  DELX,  DELV.  DELZ 

COMMON  I.  J.  K,  M,  N.  P.  IF,  L.  IFP1,  LAST 

COMMON  A.  B,  C.  D.  BETA.  GAMMA,  G.  Q 

COMMON"  FLUX1,  FLUX2,  FLUX3,  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI.  H2,  H3.  H4.  H5.  H6 

COMMON  BIOl,  BI02.  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  U2,  U3,  U4,  L'5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  W2,  W3,  W4,  W5,  W6 

COMMON  XI,  X2,  X3,  X4,  X5,  X6 

COMMON  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  EPS1,  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  VI 
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COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH.  RE.  DIST,  ALT.  FE,  FA,  MU 

COMMON  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4.  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3.  ABS4,  ABS5,  ABS6 

COMMON  SAC1.  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 

COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 

COMMON  PI,  P2.  P3,  P4,  P5,  P6 
* 

* *  *  *  «  $  *  *  *  4 :;-.  *  *  *  *  *  *  *  *  $  $  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *****  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******** 

*       INITIALIZING  CPU  TIME 

TIMEO  =  CTIMEO 
* 


-!*-  #  %■  >!"-  >!'-  »!*  -!*  -Y-  •!*  •'''  -'fi  *!*  'I* 


VARIOUS  PARAMETERS  TO  BE  USED  THROUGHOUT  THE  PROGRAM 
WILL  NOW  BE  READ  INTO  THE  PROGRAM. 

WRITE(V)  ENTER  TINTT.  THE  INITIAL  TEMPERATURE.' 

READ(V)  TINTT 

WRITE(*,*)  ENTER  Kl,  THE  THERMAL  CONDUCTIVITY.' 

READ(*,*)  Kl 

WRITE(*,*)  ENTER  CP,  THE  SPECIFIC  HEAT  OF  THE  MATERIAL.' 

READ(*,*)  CP 

WRITE(*,*)  ENTER  RHO,  THE  MATERIAL  DENSITY.' 

READ(*,*)  RHO 

WRITE(*,*)  ENTER  GEN,  THE  INITIAL  GENERATION  TERM.' 

READ!-.-)  GEN 

WRITE(*,*)  ENTER  LX,  THE  LENGTH  IN  THE  X  DIRECTION.' 
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READ(V)  LX 

WRITE(V)  ENTER  LY,  THE  LENGTH  IN  THE  Y  DIRECTION.' 

READ(*,*)  LY 

WRITE(*,*)  ENTER  LZ,  THE  LENGTH  IN  THE  Z  DIRECTION.' 

READ(*,*)  LZ 

WRITE(V)  ENTER  M,  THE  NUMBER  OF  NODES  IN  THE  X  DIRECTION.' 

READ(*,*)  M 

WRITE(*,*)  ENTER  N,  THE  NUMBER  OF  NODES  IN  THE  Y  DIRECTION.' 

READ(*,*)  N 

WRITE(  V)  ENTER  P,  THE  NUMBER  OF  NODES  IN  THE  Z  DIRECTION.' 

READ(*,*)  P 

WRITE(*,*)  ENTER  DELT,  THE  TIME  INCREMENT  IN  SECONDS.' 

READ(*,*)  DELT 

WRITE(*,*)  ENTER  FREQ,  THE  NUMBER  OF  TIME  STEPS  BETWEEN" 

WRITE(V)  SUCCESSIVE  PRINTOUTS.' 

READ(*,*)  FREQ 

WRITE(*,*)  ENTER  ALT,  THE  SATELLITE  ALTITIUDE  IN  KILOMETERS.' 

WRITE(V)  NOTE:  FOR  AN  EARTH-BASED  MODEL,  ENTER  0  FOR  ALT.' 

READ(*,*)ALT 

WRITE(*,*)  'ENTER  ECLIPS,  THE  TIME  IN  MINUTES  THE  SATELLITE  WILL' 

WRITE(*,*)  BE  IN  THE  SHADOW  OF  THE  EARTH  DURING  AN  ORBIT.' 

WRITE(*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ECLIPS.' 

READ(*.*)  ECLIPS 

WRITE(*,*)  'ENTER  FE.  THE  GEOMETRIC  FACTOR  FOR  EARTH  FLUX.' 

WRITE(*,*)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND' 

WRITE(*f*)  EARTH-BASED  MODELS,  ENTER  0  FOR  FE.' 

READ(*,*)  FE 

WRITE(*,*)  ENTER  FA,  THE  GEOMETRIC  FACTOR  FOR  ALBEDO  FLUX.' 

WRITE(*,*)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND' 

WRITE(*,*)  EARTH-BASED  MODELS,  ENTER  0  FOR  FA.' 

READ!*,*)  FA 

WRITE(V)  ENTER  SOLAR,  THE  SOLAR  FLUX.' 

WRITE(*,*)  NOTE:  AVERAGE  ANNUAL  VALUE  IS  1353.' 

WRITE(*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SOLAR.' 
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READ(*,*)  SOLAR 

WRITE(*,*)  ENTER  EARTH,  THE  THERMAL  RADIATIVE  FLUX  OF  EARTH. 

WRITE(*,*)  NOTE:  AVERAGE  ANNUAL  VALUE  IS  237/ 

WRITE(*,*)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND 

WRITE(*,*)  EARTH-BASED  MODELS,  ENTER  0  FOR  EARTH.' 

READ(V)  EARTH 

WRITE(*,*)  ENTER  ALBCO,  THE  ALBEDO  COEFFICIENT.' 

WRITE(*,*)  NOTE:  AVERAGE  ANNUAL  VALUE  IS  0.3.' 

WRITE(V)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND' 

WRITE(*,*)  EARTH-BASED  MODELS.  ENTER  0  FOR  ALBCO.' 

READ(*,*)  ALBCO 

WRITER.*)  ENTER  VAL:  THIS  WILL  DETERMINE  IF  YOU  WANT  THE' 

WRITE(V)  THE  VALIDATION  SUBROUTINE  CALLED.  IF  YOU  WANT' 

WRITE(V:)  THE  VALIDATION  SUBROUTINE  CALLED,  ENTER  1  FOR' 

WRITE(V)  'YES.  IF  YOUR  ANSWER  IS  NO.  ENTER  0.' 

READ(*,*)  VAL 

INPUTS  FOR  LEFT  FACE 

WRITE(*,*)  ENTER  TAMB1,  THE  AMBIENT  TEMP.  ON  THE  LEFT  FACE.' 

READ(*,*)  TAMB1 

WRITE(v)  ENTER  HI.  THE  LEFT  FACE  HEAT  TRANSFER  COEFFICIENT.' 

READ(Y)  HI 

\VRITE(*,*)  ENTER  FLUX1,  THE  FLUX  ON  THE  LEFT  FACE.' 

READ(*,*)  FLUX1 

WRITE(*,*)  ENTER  SIG1,  THE  LEFT  FACE  STEFAN-BOLTZMANN" 

WRITE(*,*)  CONSTANT.  NOTE:  IF  RADIATION  NOT  INVOLVED, 

WRITE(V)  ENTER  0  FOR  SIG1.' 

READ(*,*)SIG1 

WRITE(*,*)  ENTER  EPS1,  THE  LEFT  FACE  EMISSIVITY.' 

READ(-,-:)EPSl 

WRITE(*,*)  ENTER  ABS1,  THE  LEFT  FACE  ABSORPTIVITY.' 

WRITE(Y)  NOTE:  FOR  EARHT-BASED  MODELS,  ENTER  0  FOR  ABS1.' 

READ(*,*)ABS1 
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WRITE(  v )  ENTER  SAC1.  THE  LEFT  FACE  SOLAR  ASPECT  COEFFICIENT. 
WRITE(v)  'NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SAC1.' 
READ(V)  SAC1 

INPUTS  FOR  RIGHT  FACE 


WRITE(V 
WRITE(*,* 
READ(*,*) 
WRITE(*,* 
WRITE(*,* 
READ(*,*) 
WRITE(V 
READ(*,*) 
WRITE(*,* 
WRITE(*f* 
WRITE(*,* 
READ(*,*) 
WRITE(*f* 
READ(*,*) 
WRITE(*,* 
WRITE(*,* 
READ(*,*) 
WRITE(*f* 
WRITE(*,* 
WRITE(*f* 


ENTER  TAMB2,  THE  AMBIENT  TEMP.  ON  THE  ' 

RIGHT  FACE.' 
TAMB2 

ENTER  H2.  THE  RIGHT  FACE  HEAT  TRANSFER 

COEFFICIENT.' 
H2 

ENTER  FLUX2,  THE  FLUX  ON  THE  RIGHT  FACE.' 
FLUX2 

ENTER  SIG2.  THE  RIGHT  FACE  STEFAN-BOLTZMANN" 

CONSTANT.' 

NOTE:  IF  RADIATION  NOT  INVOLVED.  ENTER  0  FOR  SIG1. 
S1G2 

ENTER  EPS2,  THE  RIGHT  FACE  EMISSIVITY.' 
EPS2 

ENTER  ABS2.  THE  RIGHT  FACE  ABSORPTIVITY.' 

NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS2.' 
ABS2 

ENTER  SAC2.  THE  RIGHT  FACE  SOLAR  ASPECT- 
COEFFICIENT  NOTE:  FOR  EARTH-BASED  MODELS.' 

ENTER  0  FOR  SAC2.' 


READ!-,-)  SAC2 


*       INPUTS  FOR  BOTTOM  FACE 

* 


WRITE(*,*)  ENTER  TAMB3,  THE  AMBIENT  TEMP.  ON  THE' 

WRITE(*,*)  'BOTTOM  FACE.' 

READ(V)  TAMB3 

WRITE(*,*)  ENTER  H3.  THE  BOTTOM  FACE  HEAT  TRANSFER' 


116 


WRITE(V)  'COEFFICIENT.' 

READ(*,*)  H3 

WRITE(*,*)  ENTER  FLUX3,  THE  FLUX  ON  THE  BOTTOM  FACE.' 

READ(*,*)  FLUX 3 

WRITE(V)  'ENTER  SIG3,  THE  BOTTOM  FACE  STEFAN-BOLTZMANN" 

WRITE(*,*)  CONSTANT.' 

WRITE(*,*)  'NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG3.' 

READ(*}*)  SIG3 

WRITE(*,*)  ENTER  EPS3,  THE  BOTTOM  FACE  EMISSIVITY.' 

READ(*,*)  EPS3 

WRITE(*,*)  ENTER  ABS3.  THE  BOTTOM  FACE  ABSORPTIVITY.' 

WRITECv  )  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS3.' 

READ(*,*)  ABS3 

\YRITE(v: )  'ENTER  SAC3.  THE  BOTTOM  FACE  SOLAR  ASPECT' 

WRITE(V)  COEFFICIENT.  NOTE:  FOR  EARTH-BASED  MODELS.' 

WRITE(V)  'ENTER  0  FOR  SAC3.' 

READ(*,*)  SAC3 

INPUTS  FOR  THE  TOP  FACE 

WRITE(*,*)  ENTER  TAMB4,  THE  AMBIENT  TEMP.  ON  THE  TOP  FACE.' 

READ(*  *)  TAMB4 

WRITE(*,*)  ENTER  H4.  THE  TOP  FACE  HEAT  TRANSFER  COEFFICIENT. 

READ(*,*)  HA 

WRITE(*,*)  ENTER  FLUX4,  THE  FLUX  ON  THE  TOP  FACE.' 

READ(*,*)  FLUX4 

WRITE(V)  ENTER  SIG4,  THE  TOP  FACE  STEFAN-BOLTZMANN" 

WRITE(*,*)  CONSTANT.  NOTE:  IF  RADIATION  NOT  INVOLVED,' 

WRITE(*,*)  'ENTER  0  FOR  SIG4.' 

READ(*,*)  SIG4 

WRITE(v)  ENTER  EPS4,  THE  TOP  FACE  EMISSIVITY.' 

READ(V")  EPS4 

\VRITE(  V)  'ENTER  ABS4.  THE  TOP  FACE  ABSORPTIVITY.' 

WRITE(V)  NOTE:  FOR  EARTH-BASED  MODELS.  ENTER  0  FOR  ABS4.' 
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* 


READCv)  ABS4 

WRITE(*f*)  ENTER  SAC4.  THE  TOP  FACE  SOLAR  ASPECT  COEFFICIENT.' 
WRITE(*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SAC4.' 
READ(v )  SAC4 

INPUTS  FOR  THE  FRONT  FACE 

WRITE(V)  ENTER  TAMB5,  THE  AMBIENT  TEMP.  ON  THE  FRONT  FACE.' 

READ(*,*)  TAMB5 

WRITE(*,*)  ENTER  H5,  THE  FRONT  FACE  HEAT  TRANSFER' 

WRITE(*,*)  COEFFICIENT.' 

READ(*,*)  H5 

WRITE(*,*)  ENTER  FLUX5,  THE  FLUX  ON  THE  FRONT  FACE.' 

READ(*,*)  FLUX5 

WRITE(*,*)  ENTER  SIG5.  THE  FRONT  FACE  STEFAN-BOLTZMANN' 

WRITE(V)  CONSTANT.' 

WRITE(*,*)  NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG5.' 

READ(*,*)  SIG5 

WRITE(V)  ENTER  EPS5,  THE  FRONT  FACE  EMISSIVITY.' 

READ(*,*)  EPS5 

WRITE(*,*)  ENTER  ABS5.  THE  FRONT  FACE  ABSORPTIVITY.' 

WRITE(V)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS5.' 

READ(*,*)  ABS5 

WRITE(*,*)  ENTER  SAC5.  THE  FRONT  FACE  SOLAR  ASPECT' 

WRITE(*,*)  COEFFICIENT.  NOTE:  FOR  EARTH-BASED  MODELS,' 

WRITE(*,*)  'ENTER  0  FOR  SAC5.' 

READ(*,*)  SAC5 

INPUTS  FOR  THE  BACK  FACE 

WRITE(  V)  ENTER  TAMB6,  THE  AMBIENT  TEMP.  ON  THE  BACK  FACE.' 
READ(*,*)  TAMB6 

WRITE(*,*)  ENTER  H6,  THE  BACK  FACE  HEAT  TRANSFER  COEFFICIENT.' 
READ(*,*)  H6 
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WRITE(*,*)  ENTER  FLUX6,  THE  FLUX  ON  THE  BACK  FACE.' 

READ(*f*)  FLUX6 

WRITE(*,*)  ENTER  SIG6,  THE  BACK  FACE  STEFAN-BOLTZMANN" 

WRITE(*,*)  CONSTANT.' 

WRITE(*,*)  NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG6.' 

READ(*,*)  SIG6 

WRITE(*,*)  ENTER  EPS6,  THE  BACK  FACE  EMISSIVITY.' 

READ(*,*)  EPS6 

WRITE(V)  'ENTER  ABS6,  THE  BACK  FACE  ABSORPTIVITY.' 

WRITE(*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS6.' 

READ(*,*)  ABS6 

WRITE(*,*)  'ENTER  SAC6,  THE  BACK  FACE  SOLAR  ASPECT  COEFFICIENT. 

WRITE(*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SAC6.' 

READ(*,*)  SAC6 


CALCULATIONS  OF  CONSTANTS  TO  BE  USED  THROUGHOUT 
THE  PROGRAM 

DELX  =  LX  (M-l) 
DELY  =  LY(N-l) 
DELZ  =  LZ(P-l) 

R  =  DELX  (DELY;: DELZ) 
Rl  =  (DELX**2)/(DELY**2) 
R2  =  (DELX**2)/(DELZ**2) 

ALFA  =  Kl;(RHO*CP) 

FO  =  ALFA*(DELT/2)/(DELX**2) 

BIO  I  =  HI  K1*DELX 
BI02  =  H2  KL'DELX 
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BI03  =  H3  K1*DELX 
BI04  =  H4  K1*DELX 
BI05  =  H5  Kl-DELX 
BI06  =  H6  K1*DELX 

Ul  =  R1*F0 
L"2  =  R2*F0 
U3  =  2*R1*F0 
U4  =  2*R2*FO 
U5  =  2*F0 

VI  =  2*F0*BI01*SQRT(R1) 
V2  =  2*FO*BI02*SQRT(Rl) 
V3  =  2:FO:BI03:::SQRT(R2) 
V4  =  2*FO::BI04::SQRT(R2) 
V5  =  2*FO*BI05 
V6  =  2*FO*BI06 

EARTH  1  =  EPS1*FE*EARTH 
EARTH2  =  EPS2*FE*EARTH 
EARTH3  =  EPS3*FE*EARTH 
EARTH4  =  EPS4*FE*EARTH 
EARTH5  =  EPS5*FE*EARTH 
EARTH6  =  EPS6*FE*EARTH 

Ql  =  2*FO*Rl*DELY  Kl 
Q2  =  2*FO*R2*DELZ/Kl 
Q3  =  2*F0*DELX  Kl 

PI  =  Q1*(FLUX1  +  EARTH1) 
P2  =  Q1*(FLUX2  +  EARTH2) 
P3  =  Q2*(FLUX3  +  EARTH  3) 
P4  =  Q2*(FLUX4  +  EARTH4) 
P5  =  Q3*(FLUX5  +  EARTHS) 
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P6  =  Q3*(FLUX6  +  EARTH6) 

XI  =  -2*FO*SIGl*EPSl*Rl*DELY,'Kl 
X2  =  -2*F0*SIG2*EPS2*R1*DELY/K1 
X3  =  -2'FO*SIG3*EPS3*R2*DELZ'Kl 
X4  =  -2*F0*SIG4*EPS4*R2*DELZ/K1 
X5  =  -2*F0*SIG5*EPS5*DELX/K1 
X6  =  -2*F0*SIG6*EPS6*DELX/K1 

Yl  =  FO*(DELX**2),'Kl 

ALBED1  =  ABSl*FA*SOLAR*ALBCO 
ALBED2  =  ABS2*FA*SOLAR*ALBCO 
ALBED3  =  ABS3*FA*S0LAR*ALBC0 
ALBED4  =  ABS4*FA*SOLAR*ALBCO 
ALBED5  =  ABS5*FA*SOLAR*ALBCO 
ALBEDO  =  ABS6*FA*SOLAR*ALBCO 

SOLAR  1  =  SOLAR*SAC  l'ABSl 
SOLAR2  =  SOLAR*SAC2*ABS2 
SOLAR?  =  SOLAR*SAC3*ABS3 
SOLAR4  =  SOLAR*SAC4*ABS4 
SOLAR5  =  SOLAR*SAC5*ABS5 
SOLAR6  =  SOLAR*SAC6*ABS6 

Wl  =  PI  +  Ql*(SOLARl  +  ALBED1) 
W2  =  P2  +  Ql*(SOLAR2  +  ALBED2) 
W3  =  P3  +  Q2*(SOLAR3  +  ALBED3) 
W4  =  P4  +  Q2*(SOLAR4  +  ALBED4) 
\V5  =  ?5  +  Q3*(SOLAR5  +  ALBED5) 
W6  =  P6  +  Q3*(SOLAR6  +  ALBED6) 

FOR  EARTH-BASED  MODELS,  CALCULATIONS  FOR  PERIOD  AND  SUN 
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*  ARE  NOT  REQUIRED. 

* 

IF(ALT.LE.  0)  GO  TO  5 

PI  =  ATAN(1.0)*4.0 

ML"  =  398603.2 

RE  =  6378.165 

DIST  =  RE  +  ALT 

ECLIPS  =  ECLIPS*60 

PERIOD  =  2*PI*SQRT(DIST**3/MU) 

SUN  =  PERIOD  -  ECLIPS 
« 

*  INITIALIZING  THE  TIME  AND  COUNTER 

5   TIME  =  0.0 
COUNT  =  0 


*       OPENING  FILES  FOR  PRINT  STATEMENTS 

OPEN(UNTT=  1,  FILE=  DATA1) 

OPEN(UNTT=  2,  FILE=  'DATA2') 

OPEN(UNTT=3,  FILE=  DATA3) 

OPEN(UNTT  =  4,  FILE=  DATA4) 

OPEN(UNTT=5,  FILE  = 'DATA5') 
* 

*  *  *  *  if  if  *  *  *  *  *  *  if  if  if  *  *  *  *  *  *  *  *  *  *  *  *  *  *  if  if  *  *  *  if  ft  ******  *  *  *  *  *  ******  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
it  if  it  it  it  it  it  it  it  it  *  it  it  i'  it  it  it  it  it  i'  it  it  i'  it  it  it  it  it  it  it  it  it  it  i'  it  At  i'  i'  rfe  i'  i'  it  i"  it  it  it  i"  i'  it  i~  *  i*.  i~  i**  it  it  it  it  i"  *  *  *  it  it  *  *  :**  *  it  *  * 
* 
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*  INITIALIZE  ALL  TEMPERATURES  TO  TIMT,  THE  INITIAL 

*  TEMPERATURE. 

DO  10  1=1,  M 

DO  20  J=l.  N 

DO  30  K=1,P 
* 

T(IJ.K)  =  TINIT 

30  CONTINUE 

20       CONTINUE 
10  CONTINUE 

*  INITIALIZE  ALL  GENERATION  TERMS  TO  GEN,  THE  INITIAL 

*  GENERATION. 

DO  40  1=  l.M 
DO  50  J  =  1  .N 
DO  60  K=  1,P 

QDOT(IJ.K)  =  GcN 

60  CONTINUE 

50       CONTINUE 
40  CONTINUE 


*** 


:  *  *  *  *  *  *  j;-.  *  *  *  *  $  *  *  *  *  %  *  *  #  ********  *  *  *  *  *  *  *  *  *  ***********  *  *  *  *  *  *  *  *  *  *  *  * 


.*.  •**  j.  j.  j.  .',  .>.  jv  j-  -»-  j.  j-  «.*»  v*.  -■.  -'.  v.  J.  J.  «f.  J.  v.  J.  **-  if.  »••  J.  J.  -'.  v.  J.  Ok.  -:  -».  j,  J-  »■.  j.  y.  v.  j.  j.  j.  j.  *  j.  j.  j.  .,  j.  v.  j,  j.  v.  .'.  j.  j,  w-  *  j.  W.  j.  j»  W-  j.  *  »•,  o.  J.  4.  o>  -I. 


*       INCREMENTING  THE  TIME  AND  COUNTER 
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70   TIME  =  TIME  +  DELT 
COUNT  =  COUNT  +   1 

ft  ft  *  *  ft  ft  *  ft  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  *  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 


ft 


ft 


THIS  PART  OF  THE  PROGRAM  CALCULATES  THE  SOLAR  FLUXES  AND 

ALBEDO  FLUXES  WHICH  WILL  CHANGE  WITH  TIME  AS  THE  SATELLITE 

REVOLVES  AROUND  THE  EARTH.  DURING  ECLIPSE  PERIODS, 

THE  SOLAR  FLUX  WILL  BE  ZERO.  FOR  EARTH-BASED  MODELS, 

THIS  PART  OF  THE  PROGRAM  AND  THE  SUBROUTINES  PERI  AND 

PER2  WILL  BE  BYPASSED  USING  AN  IF  THEN  STATEMENT.  IF 

THE  USER  INPUTS  0  FOR  ALT  (I.E.,  EARTH-BASED  MODEL) 

THEN  THIS  PART  OF  THE  PROGRAM  AND  THE  TWO  SUBROUTINES 

WILL  BE  BYPASSED. 


IF(ALT  .LE.  0)GOTO  75 

IF(TIME  .LT.  (12*(SUN  +  ECLIPS)))  THEN 

CALL  PERI 
ELSE 

CALL  PER2 
ENDIF 

ALBED1  =  ABSl*FA*SOLAR*ALBCO 
ALBED2  -  ABS2*FA*SOLAR*ALBCO 
ALBED3  =  ABS3*FA*SOLAR*ALBCO 
ALBED4  =  ABS4*FA*SOLAR*ALBCO 
ALBED5  =  ABS5*FA*SOLAR*ALBCO 
ALBED6  =  ABS6  FA*SOLAR*ALBCO 

SOLAR  1  =  S0LAR*SAC1*ABS1 
SOLAR2  =  SOLAR*SAC2*ABS2 
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S0LAR3  =  SOLAR*SAC3*ABS3 
S0LAR4  =  SOLAR*SAC4*ABS4 
S0LAR5  =  SOLAR*SAC5*ABS5 
S0LAR6  =  SOLAR*SAC6*ABS6 

Wl  =  PI  +  Q1*(S0LAR1  +  ALBED1) 
W2  =  ?2  +  Ql*(SOLAR2  +  ALBED2) 
W3  =  P3  +  Q2*(SOLAR3  +  ALBED3) 
W4  =  P4  +  Q2*(SOLAR4  +  ALBED4) 
W5  =  P5  +  Q3*(SOLAR5  +  ALBED5) 
W6  =  P6  +  Q3*(SOLAR6  +  ALBED6) 


*       SETTING  COEFFICIENT  ARRAYS  A,  B.  AND  C  IN  THE  X  DIRECTION 
75   DO  80  I  =  1 ,  M 
B(I)  =  (1  +  U5) 


IF(I  .EQ.  DTIIEN 
A(I)  =  0.0 
C(I)  =  -U5 

ELSE  IF((I  .GT.  1)  .AND.  (I  .LT.  M))  THEN 
A(I)  =  -FO 
C(I)  =  -FO 

ELSE 
A(I)  =  -U5 
C(I)  =  0.0 
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ENDIF 
* 

80  CONTINUE 


*       SETTING  COEFFICIENT  ARRAY  D  IN  THE  X  DIRECTION 

DO90K=l,  P 

DO  100  J  =1,  N 
DO  110  1  =  1,  M 

IF(K.EQ.1)THEN 
CALL  XRAY1 

ELSE  IF  ((K.GT.l)  AND.  (K.LT.P))  THEN- 
CALL  XRAY2 

ELSE 
CALL  XRAY3 

ENDIF 

110         CONTINUE 

IF=1 
L=M 

CALL  TRIDAG 

ft 

DO  120   I  =  IF,L 
* 

TSTAR1(I,J,K)  =  TEMP(I) 
* 

120  CONTINUE 

100       CONTINUE 

90  CONTINUE 

* 

<-.  -•;-.  +.  >;-.  jj: :'?. # :'/.  :'■.  $  >;-.  ;;-.  :|".  :;-. :'.:  :\:  :|-.  *  £ .-;-.  $  j[-.  :;-.  ff  :;-. :;-.  j«t  *  :<:  >;-. :;-. :;-. :;-.  s;-.  :<•.  %  *  >«I  >|'.  ■>;.  %  &  jjt  *  $  <-.  *  $  >;-.  >|".  <;  s;-.  <-.  >>.  *  j<-.  *  *  *  *  *  *  *  +.  *  £  ;?.  *  #  *  * 
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* 


* 

*       SETTING  COEFFICIENT  ARRAYS  A,  B,  AND  C  IN  THE  Y  DIRECTION 
DO  130J=1,N 

B(J)  =  (1  +  U3) 

IF(J  .EQ.  1)THEN 
A(J)  =  0.0 
C(J)  =  -U3 

ELSE  IF((J  .GT.  1)  .AND.  (J  .LT.  N))  THEN 
A(J)  =  -L'l 
C(J)  =  -Ul 

ELSE 
A(J)  =  -U3 

C{J)  =  0.0 

END  IF 


* 


130  CONTINUE 
* 

*       SETTING  COEFFICIENT  ARRAY  D  IN  THE  Y  DIRECTION 


* 


DO  140  K=1,P 
DO  150I=1,M 
DO  160  J=1,N 

IF(K.EQ.l)  THEN 

CALL  YANK 1 
ELSE  IF(  (  K.GT.l)  .AND.  (K.LT.P)  )  THEN 
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CALL  YANK2 
ELSE 

CALL  YANK 3 
ENDIF 

160  CONTINUE 

* 

IF=1 

L  =  N 

CALL  TRIDAG 
DO  170  J  =  IF,  L 

TSTAR2(I.J.K)  =  TEMP(J) 

170  CONTINUE 

150       CONTINUE 
140   CONTINUE 

-•-   »•-    .'.   .*-    »■.    J.    »'.    •>.    «J-    »•-    »•-    O.    .»,    O.    J.    »•;   .•-    ..•.    J-    O.    «*.   ?*.    J.    *,*.    J*    J.    rf.   jf.    J.    *■.    J.   «/;    J;   j/-    (T.    J.    *f;   jN   jf-    Jj   J.   «/-   jP-   »%    «.'.   jj-   »».    J-    J*  jf.   jf-  jf.   jf.   jf*   jf.   «/.  j.*.   jfr   J-  J*»  J.    *  jf.   j*.    J-   «».   ^.    J.    J.   ;/.   rf. 

*       SETTING  COEFFICIENT  ARRAYS  A.  B.  AND  C  IN  THE  Z  DIRECTION 

* 

DO  180  K=l,  P 
* 

B(K)  =  (1  +  U4) 
* 

IF(K  .EQ.  1)THEN 

A(K)  =  0.0 

C(K)  =  -U4 
* 

ELSE  IF((K  .GT.  1)  .AND.  (K  .LT.  P))  THEN 


12S 


* 


A(K)  =  -U2 
C(K)  -  -L'2 

ELSE 
A(K)  =  -U4 
C(K)  =  0.0 

ENDIF 


180  CONTINUE 

gfc 

*       SETTING  COEFFICIENT  ARRAY  D  IN  THE  Z  DIRECTION 

DO  190  J  =1,  N 
DO  200  I  =  1,M 
DO  210  K=1.P 

IF(J.EQ.1)THEN 
CALL  ZULU 1 

ELSE  IF((J.GT.l)  .AND.  (J.LT.N))  THEN- 
CALL  ZULU2 

ELSE 

CALL  ZULU 3 

ENDIF 
* 

210  CONTINUE 


IF=  1 

L=P 


* 


CALL  TRIDAG 
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DO  220  K  =  IF,  L 

T(I,J,K)  =  TEMP(K) 

* 

220  CONTINUE 

200       CONTINUE 

190  CONTINUE 
* 

*  $  *  *  * :;-. * * * *  *  $  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ****************  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******  *  *  *  *  *  *  *  *  *  *  *  *  ********  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
* 

*  THIS  PART  OF  PROGRAM  IS  USED  TO  DETERMINE  IF  THE 

*  SUBROUTINE  VALID  WILL  BE  CALLED.  THIS  SUBROUTINE 

*  IS  USED  TO  VALIDATE  THE  PROGRAM  BRIAN  AND  COMPARE 

*  TEMPERATURE  DIFFERENCES  AT  SELECTED  NODES  WITH  THE 

*  DIFFERENCES  FOUND  BY  THE  PROGRAMS  EXPLICIT  AND  VALID. 

*  IF  SUBROUTINE  VALID  IS  USED  THE  SUBROUTINE  OUTPUT  WILL  BE 

*  BYPASSED.  IT  SHOULD  BE  NOTED  THAT  THE  SUBROUTINE  VALID 

*  WILL  NOT  NORMALLY  BE  USED. 

IF(VAL  .NE.  1)  GO  TO  250 

IF(TIME  .EQ.  DELT)  CALL  VALID 

I F( COUNT  .NE.  FREQ)  GO  TO  240 

CALL  VALID 
* 

240   IF(TIME  .LE.      3600)  GO  TO  70 
GO  TO  310 


*  THIS  PART  OF  PROGRAM  WILL  DETERMINE  IF  THE  TIME  AND/OR 

*  COUNT  CRITERIA  FOR  CALLING  THE  SUBROUTINE  OUTPUT  IS  MET. 

*  THIS  SUBROUTINE  IS  USED  FOR  VARIOUS  PRINTOUTS. 
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250   IF(TIME  .EQ.  DELT)  CALL  OUTPUT 

IF(COU\"T  ,NE.  FREQ)  GO  TO  300 
* 

CALL  OUTPUT 
* 

*  NOTE:  IF  THE  SUBROUTINE  OUTPUT  IS  CALLED,  THE  COUNT  WILL  BE 

*  REINITIALIZED  TO  ZERO  IN  THE  SUBROUTINE  OUTPUT 
* 

*  NOTE:  THE  TIME  PERIOD  SELECTED  FOR  THIS  PROBLEM  IS  86400 

*  SECONDS  OR  1  DAY.  ANOTHER  TIME  LIMIT  CAN  BE  USED 

*  IF  THE  USER  DESIRES  A  PERIOD  DIFFERENT  THAN  1  DAY. 

300   IF(TIME  .LE.   86400)  GO  TO  70 


*  CALCULATING  AND  PRINTING  CPU  TIME  USED  DURING  THE 

*  OPERATING  OF  THIS  PROGRAM 

310   PRINT* 
PRINT* 

TIME1  =  CTIME() 

CALL  UMACHC.NOUT) 

WRITE(NOUT,»)  CPU  TIME  (SECONDS)  =  ',  TIME1-TIMEO 


STOP 
END 


s *  $  $  *  *  *  *  *  *  *  *  *  *  * ::-. ::-.  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******  *  **************************  #  *  *  * 

SUBROUTINE  PERI 

DIMENSION  A(  30).  B(  30),  C(  30).  D(  30),  TEMP(  30) 
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DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(30,  30,  30) 
DIMENSION  T(    30,   30.   30).  TSTAR1(  30,   30.   30) 
DIMENSION  TSTAR2(  30.   30,   30) 

REAL  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX.  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D.  BETA,  GAMMA 

REAL  FLL'Xl.  FLUX2.  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4.  H5.  H6 

REAL  BIOl.  BI02.  BI03,  BI04.  BI05,  BI06 

REAL  SIG1,  SIG2.  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul.  L'2.  U3,  U4,  L'5 

REAL  VI.  V2.  Y3.  Y4.  Y5,  Y6 

REAL  Wl,  W2,  \V3,  W4,  W5,  W6 

REAL  XI.  X2.  X3,  X4,  X5,  X6 

REAL  EPS1.  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 

REAL  QDOT.  GEN.  Yl 

REAL  CTIME.  TLMEO.  TIME1 

REAL  SOLAR.  EARTH.  ALBCO,  RE.  DIST,  ALT.  FE.  FA.  ML" 

REAL  SOLAR1,  SOLAR2.  SOLAR3.  SOLAR4.  SOLAR5,  SOLAR6 

REAL  EARTH  1.  EARTH2,  EARTH3,  EARTH4.  EARTHS.  EARTH6 

REAL  ALBED1.  ALBED2.  ALBED3.  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1.  ABS2.  ABS3.  ABS4,  ABS5,  ABS6 

REAL  SAC1,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 

REAL  PI,  P2,  P3,  P4,  P5,  P6 

INTEGER  I,  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ,  ANSI.  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T.  TEMP 
COMMON  CP,  Kl.  RHO,  R,  Rl.  R2.  TIME,  DELT 
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* 


COMMON  LX,  LV.  LZ.  DELX,  DELY,  DELZ 

COMMON  I.  J,  K,  M,  N,  P,  IF.  L.  IFP1,  LAST 

COMMON  A.  B.  C,  D.  BETA.  GAMMA.  G.  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5.  H6 

COMMON  BIOl.  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  W2,  W3.  \V4.  VV5,  W6 

COMMON  XI,  X2,  X3.  X4.  X5,  X6 

COMMON  COUNT.  FREQ,  ANSI.  ANS2.  ANS3.  VAL,  NOL'T 

COMMON  EPS1,  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  Yl 

COMMON  TIMEO.  TFME1 

COMMON  SOLAR,  EARTH.  RE,  DIST,  ALT,  FE.  FA,  ML" 

COMMON  SOLAR1,  SOLAR2.  SOLAR3.  SOLAR4.  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4.  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2.  ALBED3.  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1.  ABS2.  ABS3.  ABS4,  ABS5,  ABS6 

COMMON  SAC1.  SAC2.  SAC3.  SAC4,  SAC5.  SAC6 

COMMON  SUN.  ECLIPS.  Ql,  Q2,  Q3.  PERIOD,  PI 

COMMON  PI,  P2.  P3.  P4.  P5.  P6 

IF(TIME  .LT.  SUN)  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  SUN)  .AND.  (TIME  .LT.  (SUN  +  ECLIPS)))  THEN- 
GO  TO  20 

ELSE  IF((TIME  .GE.  (SUN  + ECLIPS))  .AND. 
&    (TIME  .LT.  (2*SL"N  +  ECLIPS)))  THEN 
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GOTO  10 

ELSE  IF((TIME  .GE.  (2*SUN  +  ECLIPS))  .AND. 
&    (TIME  XT.  (2*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (2*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (3*SUN  +  2*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (3*SUN  +  2*ECLIPS))  .AND. 
&    (TIME  .LT.  3*(SUN  + ECLIPS)))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (3*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (4*SUN  +  3*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (4*SUN  +  3*ECLIPS))  .AND. 
&    (TIME  .LT.  (4*(SUN  + ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  4«(SUN+  ECLIPS))  .AND. 
&    (TIME  .LT.  (5*SUN  +  4 -ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (5*SUN  +4*ECLIPS))  .AND. 
&    (TIME  .LT.  (5*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (5*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (6*SUN  +  5*ECLIPS)))  THEN 
GO  TO  10 
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ELSE  IF((TIME  .OE.  (6*SUN  +  5*ECLIPS))  .AND. 
&    (TIME  XT.  (6*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (6*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (7*SL*N  +  6*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (7*SUN  +  6*ECLIPS))  .AND. 
&    (TIME  .LT.  (7*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((T1ME  .GE.  (7*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (8*SL"N  +  7*ECLIPS)»  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (8*SUN  +  7*ECLIPS))  .AND. 
&    (TIME  .LT.  (8*(SUX  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (8*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (9*SUN  +  8*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (9*SUN  +  8:::ECLIPS))  .AND. 
&    (TIME  .LT.  (9*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (9*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (lO'-SL'N  +  9*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (10*SUN  +  9  *  EC  LI  PS))  .AND. 
&    (TIME  .LT.  (10*(SUN  +  ECLIPS))))  THEN 
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GO  TO  20 
* 

ELSE  IF((TIME  .GE.  (10*(SUN  +  ECLIPS)»  .AND. 
&    (TIME  .LT.  (11*SUN  +  10::ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (11*SUN  +  10*ECLIPS))  .AND. 
&    (TIME  .LT.  (ll'*(SUX  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (11*(SUN  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (12*SL"N  +  I1*ECLIPS)))  THEN 
GO  TO  10 

ELSE 
GO  TO  20 

END  IF 
* 

10   SOLAR  =   1353 

WRITE(6,*)  SOLAR  =  '.SOLAR 
GO  TO  30 

20   SOLAR  =  0 

WRITE(6,*)  'SOLAR  = '.SOLAR 
>:-■ 

30   RETURN 

END 

* 

*  *  *  *  ••:-•  *  >!■•  *  *  *  *  *  *  *  *  *  <--  <■-  *  *  *  *  *  *  *  >:-■  *  *  *  *  *  *  *  *  *  *  ********************************  *  *  * 

$  #  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  :£  .^:  #  :£  ft  ft  &  £  #  ft  :£  *  J;  :$:  ft  J;  ^:  :£  ^  ^t  J;  *  ^:  :fc  ft  £  *  J-  :fc  *  ft  #  :£  :*:  ft  ft  ft  :):  *  ft  £  :£  :fc  ^  ^  :fc  :;::}-.+.£.'',:>:-.:',::;: 
* 

SUBROUTINE  PER2 

DIMENSION  A(  30).  B(  30).  C(  30).  D(  30),  TEMP(  30) 
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DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(30.  30,  30) 
DIMENSION  T(    30,   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30,    30.    30) 

REAL  UNIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D.  BETA,  GAMMA 

REAL  FLL'Xl,  FLUX2.  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4.  H5,  H6 

REAL  BIOl.  BI02,  BI03,  BI04,  BIOS,  BI06 

REAL  SIG1,  SIG2.  SIG3.  SIG4,  SIG5,  SIG6 

REAL  LI.  L"2.  L'3.  L'4.  L'5 

REAL  VI.  Y2.  Y3.  V4.  Y5,  Y6 

REAL  Wl,  W2.  \Y3.  \Y4.  W5,  W6 

REAL  XI,  X2,  X3.  X4,  X5.  X6 

REAL  EPS1,  EPS2.  EPS3,  EPS^.  EPS5,  EPS6 

REAL  QDOT.  GEN.  Yl 

REAL  CTIME,  TIMEO.  TIME1 

REAL  SOLAR.  EARTH.  ALBCO.  RE,  DIST.  ALT.  FE,  FA.  ML" 

REAL  SOLAR1.  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5.  SOLAR6 

REAL  EARTH  1.  EARTH2.  EARTH3,  EARTH4.  EARTHS,  EARTH6 

REAL  ALBED1.  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1,  ABS2,  ABS3.  ABS4,  ABS5.  ABS6 

REAL  SAC1,  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 

REAL  PI,  P2,  P3,  P4,  P5,  P6 

INTEGER  I.  J.  K.  M,  N.  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINTT,  TSTAR1.  TSTAR2,  T,  TEMP 
COMMON  CP,  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 
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COMMON  LX.  LY,  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST 

COMMON  A.  B,  C,  D,  BETA,  GAMMA,  G,  Q 

COMMON  FLL'Xl,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1.  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  L'l,  L'2,  U3,  L'4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  W2.  W3,  \V4.  W5,  W6 

COMMON  XI.  X2,  X3.  X4.  X5,  X6 

COMMON  COUNT.  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  EPS1.  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  Yl 

COMMON  TIMEO.  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST.  ALT,  FE,  FA,  ML" 

COMMON  SOLAR1.  SOLAR2.  SOLAR3,  SOLAR4,  SOLARS,  SOLAR6 

COMMON  EARTH  1,  EARTH2.  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1.  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1.  \BS2.  ABS3.  ABS4.  ABS5,  ABS6 

COMMON  SAC1.  SAC2,  SAC3.  SAC4.  SAC5.  SAC6 

COMMON  SEN.  ECLIPS,  Ql,  Q2.  Q3,  PERIOD.  PI 

COMMON  PI,  P2.  P3.  P4,  P5,  P6 

IF((TIME  .GE.  (12*(SL"N  +  ECLIPS)))  .AND. 
&    (TIME  .LT.  (13*SUN  +  12*ECL1PS)))  THEN 
GOTO  10 

ELSE  IF((TIME  .GE.  (13*SUN  +  12*ECLIPS))  .AND. 
&    (TIME  .LT.  (13*(SL"N  + ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (13::(SL"N  + ECLIPS)))  .AND. 
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&    (TIME  .LT.  (14--SUN  +  13*ECLIPS)))  THEN 
GOTO  10 

ELSE  IF((TIME  .GE.  (14*SUN  +  13*ECLIPS))  .AND. 

&    (TIME  .LT.  (14*(SUN  +  ECLIPS))))  THEN 

GO  TO  20 
* 

ELSE  IF((TIME  .GE.  (14*(SUX  +  ECLIPS)))  .AND. 

&    (TIME  .LT.  (15*SUN  +  14*ECLIPS)))  THEN 

GOTO  10 
* 

ELSE  IF((TIME  .GE.  (15*SUN  +  14*ECLIPS))  .AND. 
&    (TIME  .LT.  (15*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (15*(SUN  +  ECLIPS»)  .AND. 
&    (TIME  .LT.  (16*SUN  +  I5*ECLIPS)))  THEN- 
GO  TO  10 

ELSE  IF((TIME  .GE.  (16*SUN  +  15*ECLIPS))  .AND. 
&    (TIME  .LT.  (16*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (16*(SUN  +  ECLIPS)))  .AND. 

Si    (TIME  .LT.  (17*SUN  +  16*ECLIPS)))  THEN 

GO  TO  10 
* 

ELSE  IF((TIME  .GE.  (17*SUN  +  16*ECLIPS))  .AND. 
&    (TIME  .LT.  (17*(SUN  +  ECLIPS))))  THEN 

GO  TO  20 
ELSE 

GO  TO  10 
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END  IF 

10   SOLAR  =   1353 

WRITE(6,*)  SOLAR  = '.SOLAR 

GO  TO  30 
* 

20  SOLAR  =  0 

WRITE(6,*)  SOLAR  =  ',SOLAR 

30   RETURN 
END 

*  SUBROUTINES  XRAY1,  XRAY2,  AND  XRAY3  COMPUTE  COEFFICIENT 

*  ARRAY  D  IN  THE  X  DIRECTION 
-•:-■ 

••       SUBROUTINE  XRAY1 

SUBROUTINE  XRAY1 

DIMENSION  A(  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 

DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30.  30) 

DIMENSION  T(    30,   30,    30).  TSTAR1(  30.   30,   30) 

DIMENSION  TSTAR2(  30.   30,   30) 
# 

REAL  TIXIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO.  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D,  BETA,  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3.  H4,  H5.  H6 

REAL  BIOl,  BIOI.  BI03.  BI04,  BI05,  BI06 
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REAL  SIG1,  SIG2,  SIG3,  SIG4.  SIG5,  SIG6 

REAL  L'l,  L2,  U3,  U4.  L'5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  W6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Yl 

REAL  CTIME,  TIMEO,  TIM  El 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  ML* 

REAL  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1,  ALBED2.  ALBED3,  ALBED4.  ALBED5.  ALBED6 

REAL  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

REAL  SAC1.  SAC2.  SAC3.  SAC4.  SAC5,  SAC6 

REAL  SUN.  ECLIPS.  Ql.  Q2,  Q3,  PERIOD,  PI 

REAL  PI.  P2,  P3.  P4.  P5,  P6 

INTEGER  I,  J.  K.  M,  X,  P.  IF.  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI.  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINIT,  TSTAR1.  TSTAR2.  T,  TEMP 

COMMON  CP.  Kl.  RHO.  R.  Rl.  R2.  TIME,  DELT 

COMMON  LX.  LY.  LZ,  DELX.  DELY,  DELZ 

COMMON  I,  J.  K.  M.  N,  P.  IF,  L.  IFP1.  LAST 

COMMON  A.  B,  C.  D.  BETA.  GAMMA.  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  BI02.  BI03,  BI04,  BIOS,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  L'l,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl.  \V2.  W3,  W4,  W5,  \V6 

COMMON  XL  X2.  X3.  X4.  X5,  X6 
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COMMON  COUNT.  FREQ 

COMMON  EPS1.  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  Yl 

COMMON  TIMEO,  TIM  El 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 

COMMON  SOLAR  1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1,  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 

COMMON  SUN,  ECLIPS.  Ql,  Q2,  Q3,  PERIOD,  PI 

COMMON  PI,  P2.  P3,  P4.  P5.  P6 

IF((I.EQ.l)  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(U.K)  +  U3*(T(I,J  +  1!K)-T(I,J,K))  + 
&  U4*(T(I,J,K+1)  -  T(I.J.K))  +  V1*(TAMB1  -  T(U.K))  + 

Sc  V3*(TAMB3  -  T(I.J.K))  +  Y6*(TAMB6  -  T(I.J.K))  +  Wl  + 

&  \V3  +  W6  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I.J.K)  +  U3*(T(I,J  +  1,K)-T(I,J,K))  + 
&  U4*(T(I,J.K  +  1)  -  T(I.J.K))  +  V1*(TAMB1  -  T(I,J.K))  + 

&  V3*(TAMB3  -  T(I.J.K))  +  Wl  +  \V3  + 

&  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(I,J,K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I,J,K)  +  U3*(T(I,J  +  1,K)-T(I,J,K))  + 
&  U4*(T(I,J,K+1)  -  T(I,J,K))  +  V1*(TAMB1  -  T(I,J,K))  + 

&  V3*(TAMB3  -  T(I,J,K))  +  V5*(TAMB5  -  T(I,J,K))  + 

6c  Wl  +  W3  +  W5  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  + 
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&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J.K) 

ELSE  IF((I.EQ.l)  AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN- 
DID  =  T(I.J.K)  +  L'1*(T(U-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  L'4*(T(U,K+  1)  -  T(I,J,K))  +  V3*(TAMB3  -  T(I,J,K))  + 

&  V6*(TAMB6  -  T(I,J,K))  +  W3  +  W6  + 

&  X3*(T(I,J,K)**4  -  TAMB3**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Y1*QD0T(U,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  ((J.GT.l)  .AND. 
&  (J.LT.N)))  THEN 

D(I)  =  T(I.J.K)  +  L'1*(T(I,J-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  U4*(T(U,K  +  1)  -  T(IJ.K))  +  V3*(TAMB3  -  T(I,J,K))  + 

&  W3  +  X3*(T(U,K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 

D(I)  =  T(I.J.K)  4-  L"1*(T(U-1,K)  +  T(U+1,K)-2*T(U,K))  + 
&  L"4*(T(I,J,K  +  1)  -  T(LJ,K))  +  V3*(TAMB3  -  T(IJ.K))  + 

&  V5*(TAMB5  -  T(1J.K)}  +  \V3  +  W5  + 

&  X3*(T(I,J,K)**4  -  TAMB3**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.l)  .AND.  (J.EQ.N))  THEN 

D(I)  =  T(I.J.K)  +  L"3*(T(I,J-lfK)-T(IJ,K))  + 
&  U4*(T(I,J,K+1)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I.J.K))  + 

&  V3*(TAMB3  -  T(I,J,K))  +  V6*(TAMB6  -  T(I,J,K))  + 

&  W2  +  W3  +  \V6  +  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X3*(T(I,J,K)**4  -  TAMB3**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((l.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.N))  THEN 

D(I)  =  T(I,J,K)  +  U3*(T(I,J-1,K)  -  T(I,J,K))  + 
&  U4*(T(U,K+1)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V3*(TAMB3  -  T(I.J.K))  +  \V2  +  W3  + 
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&  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  +  Y1*QD0T(U,K) 

ELSE 

D(I)  =  T(I,J,K)  +  U3*(T(I,J-1,K)  -  T(I,J,K))  + 

&  U4*(T(I,J,K+1)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V3*(TAMB3  -  T(I,J,K))  +  V5*(TAMB5  -  T(I,J,K))  + 

&  W2  +  W3  +  W5  +  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ENDIF 

RETURN 
END 


*       SUBROUTINE  XRAY2 

SUBROUTINE  XRAY2 

DIMENSION  A(  30),  B(  30).  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30).  QDOT(  30.  30,  30) 
DIMENSION  T(    30.   30.   30).  TSTAR1(  30.   30,   30) 
DIMENSION  TSTAR2(  30,   30,   30) 

REAL  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D.  BETA,  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  B106 

REAL  SIG1,  SIG2.  SIG3,  SIG4,  SIG5,  SIG6 
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REAL  L'l.  L'2,  L'3,  L'4,  L'5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  \V6 

REAL  XI,  X2,  X3,  X4.  X5.  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT.  GEN,  Yl 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 

REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1.  EARTH2.  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1.  ABS2.  ABS3.  ABS4.  ABS5,  ABS6 

REAL  SAC1.  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN,  ECLIPS.  Ql.  Q2,  Q3,  PERIOD.  PI 

REAL  PI.  P2,  P3,  P4,  P5.  P6 

INTEGER  I,  J,  K.  M.  N.  P.  IF,  L.  IFP1,  LAST,  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI.  ANS2.  ANS3,  VAL,  NOUT 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP.  Kl.  RHO,  R,  Rl.  R2,  TIME.  DELT 

COMMON  LX.  LY.  LZ.  DELX.  DELY.  DELZ 

COMMON  I.  J.  K,  M.  N.  P.  IF,  L.  IFP1,  LAST 

COMMON  A.  B.  C.  D.  BETA,  GAMMA.  G.  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3.  H4,  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  L'l,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4.  V5,  V6 

COMMON  Wl,  \V2,  W3,  W4,  W5,  W6 

COMMON  XI,  X2,  X3.  X4,  X5.  X6 

COMMON  COUNT.  FREQ 
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COMMON  EPS1.  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  Yl 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE,  FA,  ML" 

COMMON  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 

COMMON  PI,  P2,  P3,  P4,  P5,  P6 

1F((I.EQ.1)  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I,J,K)  +  U2*(T(I,J,K-1)  +  T(I,J,K+  1)  -  2*T(I,J,K))  + 
&  U3*(T(I,J+1,K)  -  T(U,K))  +  V1*(TAMB1  -  T(I.J.K))  + 

&  V6*(TAMB6  -  T(I,J,K))  +  Wl  +  W6  + 

6c  X1-(T(I,J,K):::*4  .  JAMBl-4)  + 

&  X6*(T(I.J.K)*:M-TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I.J.K)  +  U2*(T(I,J,K-1)  +  T(I,J,K+1)-  2*T(U,K»  + 
&  U3*(T(I,J+1,K)  -  T(I,J,K))  +  V1*(TAMB1  -  T(I,J,K»  + 

&  Wl  +  X1*(T(I,J,K)**4-TAMB1**4)  +  Yl:QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I.J,K)  +  L'2*(T(I,J,K-1)  +  T(I,J,K  +  1)  -  2*T(I,J,K))  + 
&  U3*(T(I.J  +  1,K)  -  T(I,J,K))  +  V1*(TAMB1  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  Wl  +  W5  + 

&  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.l)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 

D(I)  =  T(I,J,K)  +  U1*(T(U-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  L'2*(T(I,J.K-1)  +  T(IJ.K-M)-  2*T(I,J,K))  + 
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&  V6*(TAMB6  -  T(U,K))  +  W6  + 

&  X6*(T(U,K)**4  -  TAMB6**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  ((J.GT.l)  .AND. 
&  (J.LT.N')))  THEN 

D(I)  =  T(I.J,K)  +  U1*(T(I,J-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  U2*(T(I,J,K-1)  +  T(I,J,K+1)-  2*T(I,J,K))  + 

&  Y1*QD0T(1.J,K) 

ELSE  IF((I.EQ.M)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 

D(I)  =  T(I.J,K)  +  U1*(T(I,J-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  U2*(T(U,K-1)  +  T(I.J.K+1)-2*T(I.J,K))  + 

&  V5*(TAMB5  -  T(I.J.K))  +  W5  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.l)  .AND.  (J.EQ.N))  THEN 

D(I)  =  T(I,J,K)  +  U2*(T(U,K-1)  +  T(I,J.K+1)-  2*T(U,K))  + 
&  U3*(T(I,J-1,K)  -  T(LJ.K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V6*(TAMB6  -  T(I,J,K))  +  W2  +  W6  + 

&  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.N))  THEN 

D(I)  =  T(I.J.K)  +  U2*(T(I,J,K-1)  +  T(I,J,K+1)-2*T(I,J,K))  + 
&  U3*(T(IJ-1,K)  -  T(I.J.K))  +  V2*(TAMB2  -  T(I.J.K))  + 

&  W2  +  X2*(T(I,J,K)**4  -  TAMB2**4)  +  Yl*QDOT(I,J,K) 

ELSE 

D(I)  =  T(I,J,K)  +  U2*(T(I,J,K-1)  +  T(I,J,K+1)-  2*T(I,J,K))  + 
&  L:3*(T(I,J-1,K)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  W2  +  W5  + 

&  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 
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ENDIF 

RETURN 
END 

SUBROUTINE  XRAY3 

SUBROUTINE  XRAY3 

DIMENSION  A(  30),  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSIONS    30.   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30,   30,   30) 

REAL  TINTT,  TSTAR1,  TSTAR2.  T,  TEMP 

REAL  CP,  Kl.  RHO.  R.  Rl,  R2.  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A.  B.  C,  D.  BETA.  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX?,  FLUX4.  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3.  TAMB4.  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4.  H5.  H6 

REAL  BIOl,  BI02,  BI03,  BI04.  BI05,  BI06 

REAL  SIG1.  SIG2.  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul.  U2.  U3.  U4,  U5 

REAL  VI.  Y2.  V3,  Y4.  V5,  Y6 

REAL  Wl,  \V2,  W3,  W4,  W5,  W6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Yl 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 

REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1,  EARTH2.  EARTH3.  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
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REAL  ABS1.  ABS2,  ABS3.  ABS4,  ABS5.  ABS6 
REAL  SAC1.  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 
REAL  SUN.  ECLIPS,  Ql,  Q2,  Q3.  PERIOD,  PI 
REAL  PI,  P2,  P3,  P4,  P5,  P6 

INTEGER  I.  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL.  NOUT 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO.  R.  Rl,  R2,  TIME,  DELT 

COMMON  LX.  LY.  LZ.  DELX.  DELV.  DELZ 

COMMON  I,  J,  K,  M.  N.  P.  IF.  L,  IFP1.  LAST 

COMMON  A,  B.  C,  D.  BETA.  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2.  FLUX3.  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2.  TAMB3.  TAMB4.  TAMB5,  TAMB6 

COMMON  HI.  H2,  H3.  H4.  H5,  116 

COMMON  BIOl.  BI02,  BI03.  BI04.  BI05,  BI06 

COMMON  SIG1.  SIG2.  SIG3.  SIG4.  SIG5.  SIG6 

COMMON  LI.  L2.  L3.  L4.  L*5 

COMMON  VI.  V2.  V3.  V4.  V5,  V6 

COMMON  Wl,  \V2.  \Y3.  \V4,  \V5,  W6 

COMMON  XI.  X2.  X3.  X4.  X5.  X6 

COMMON  COUNT,  FREQ 

COMMON  EPS1.  EPS2.  EPS3.  EPS4,  EPS5.  EPS6 

COMMON  QDOT.  GEN.  VI 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 

COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1.  EARTH2,  EARTH3,  EARTH4.  EARTH5,  EARTH6 

COMMON  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1,  SAC2.  SAC3.  SAC4,  SAC5,  SAC6 

COMMON  SUN.  ECLIPS.  Ql.  Q2.  Q3,  PERIOD,  PI 
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COMMON  PI.  P2.  P3,  P4,  P5,  P6 

IF((l.EQ.l)  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I.J,K)  +  U3*(T(I,J+1,K)-T(I,J,K))  + 

6c  U4*(T(I,J,K-1)  -  T(I,J,K))  +  V1*(TAMB1  -  T(I,J,K))  + 

&  V4*(TAMB4  .  T(I,J,K))  +  V6*(TAMB6  -  T(I,J,K))  +  Wl  + 

&  W4  +  W6  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X4*(T(I,J,K)**4  -  TAM 84**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I.J.K)  +  U3*(T(I,J+1,K)-T(I,J,K))  + 
&  L'4*(T(U,K-1)  -  T(IJ.K))  +  V1*(TAMB1  -  T(I.J.K))  + 

&  V4*(TAMB4  -  T(I,J,K))  +  Wl  +  \V4  + 

6c  X1*(T(U,K)**4  -  TAMB1**4)  + 

&  X4*(T(UfK)**4  -  TAMB4**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  (J.EQ.l))  THEN 

D(I)  =  T(I.J.K)  +  U3*(T(U  +  1,K)-T(U,K))  + 

6c  U4*(T(I,J,K-1)  -  T(IJ.K))  +  V1*(TA.MB1  -  T(IJ.K))  + 

&  V4*(TAMB4  -  T(IJ,K))  +  V5*(TAMB5  -  T(I,J,K))  +  Wl  + 

&  W4  +  W 5  +  X 1  *(T(  I ,J ,K)*  •  4  -  T A  M  B 1  *  *4)  + 

&  X4*(T(U,K)**4  -  TAMB4**4)  + 

6c  X5*(T(I,JfK)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.l)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 

D(I)  =  T(I,J.K)  +  U1*(T(U-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  U4*(T(I,J,K-1)  -  T(IJ,K))  +  V4*(TAMB4  -  T(U,K))  + 

&  V6*(TAMB6  -  T(I,J,K))  +  W4  +  W6  + 

&  X4*(T(I,J,K)**4  -  TAMB4**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  ((J.GT.l)  .AND. 
6c   (J.LT.N)))  THEN 
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D(I)  =  T(IJ.K)  +  L"1*(T(I,J-1,K)  +  T(U+l,K)-2*T(UfK»  + 
&  L"4*(T(I.J.K-1)  -  T(I,J,K»  +  V4*(TAMB4  -  T(IJ.K))  + 

&  W4  +  X4*(T(I,JfK)**4  -  TAMB4**4)  +  Yl*QDOT(U,K) 

ELSE  IF((I.EQ.M)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 

D(I)  =  T(I,J.K)  +  U1*(T(I,J-1,K)  +  T(I,J+1,K)-2*T(I,J,K))  + 
&  U4*<T(I,J,K-1)  -  T(I,J,K))  +  V4*(TAMB4  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  W4  +  W5  + 

&  X4*(T(I,J,K)**4  -  TAMB4**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(d.EQ.l)  AND.  (J.EQ.N))  THEN 

D(I)  =  T(I.J.K)  +  U3*(T(U-1,K)  -  T(U,K))  + 
&  U4*(T(U.K-1)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&.  V4*(TAMB4  -  T(I.J.K))  +  V6*(TAMB6  -  T(I.J.K))  +  W2  + 

&  W4  +  WO  +  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X4*(T(U,K)**4  -  TAMB4**4)  + 

k  X6*(T(U,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  AND.  (J.EQ.N))  THEN 

D(I)  =  T(I.J.K)  +  U3*(T(I,J-1,K)  -  T(I.J.K))  + 
&  L'4*(T(IJ,K-1)  -  T(I.J.K))  +  V2*(TAMB2  -  T(I,J,K»  + 

&  V4*(TAMB4  -  T(IJ.K))  +  W2  +  W4  + 

&  X2*(T(U,K)**4  -  TAMB2**4)  + 

6c  X4*(T(U,K)**4  -  TAMB4**4)  +  Yl*QDOT(I,J,K) 

ELSE 

D(I)  =  T(I,J,K)  +  U3*(T(U-1,K)-T(U,K))  + 

&  U4*(T(I,J,K-1)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V4*(TAMB4  -  T(I,J,K))  +  V5*(TAMB5  -  T(I,J,K))  +  W2  + 

&  \V4  +  W5  +  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X4*(T(I,J,K)**4  -  TAMB4**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 
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EXDIF 

RETURN 
END 

* 

* ::-.  *  * * .-:-.  * :;-.  *  ******  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******  *  ]\  f:  *  *  *  *  *  * 
* 

*  SUBROUTINES  YANK1,  YANK2,  AND  YAXK3  COMPUTE  COEFFICIENT 

*  ARRAY  D  IN  THE  Y  DIRECTION 

•V- 

*  SUBROUTINE  YANK  1 

SUBROUTINE  YANK  1 

DIMENSION  A(  30).  B(  30).  C(  30),  D(  30).  TEMP(  30) 

DIMENSION  BETA(  30).  GAMMA(  30).  QDOT(  30,  30,  30) 

DIMENSIONS    30.    30.    30).  TSTAR1(  30.   30.   30) 

DIMENSION  TSTAR2(  30.   30,   30) 
* 

REAL  TINTT.  TSTAR1.  TSTAR2.  T.  TEMP 

REAL  CP.  KI.  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX.  LY,  LZ.  DELX.  DELY.  DELZ 

REAL  A.  B.  C.  D.  BETA.  GAMMA 

REAL  FLUX1.  FLUX2.  FLUX3.  FLUX4.  FLUX5.  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

REAL  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul,  U2,  U3.  U4,  U5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl.  \V2,  \Y3,  W4.  W5,  W6 

REAL  XI,  X2.  X3,  X4.  X5,  X6 

REAL  EPS1.  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 
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REAL  QDOT,  GEN,  VI 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR.  EARTH.  ALBCO.  RE,  DIST,  ALT,  FE,  FA,  ML' 

REAL  SOLAR1.  SOLAR2.  SOLAR3,  SOLAR4.  SOLAR5.  SOLAR6 

REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

REAL  SAC1,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD.  PI 

REAL  PI,  P2,  P3,  P4.  ?5,  P6 

INTEGER  I.  J.  K.  M.  N.  P,  IF.  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI.  ANS2.  ANS3.  VAL.  NOUT 

COMMON  TINIT,  TSTAR1.  TSTAR2.  T.  TEMP 

COMMON  CP.  KI.  RHO.  R.  Rl.  R2,  TIME.  DELT 

COMMON  LX,  LV.  LZ.  DELX,  DELV.  DELZ 

COMMON  I,  .1.  K.  M,  N.  P.  IF,  L,  IFP1,  LAST 

COMMON  A.  B.  C,  D.  BETA,  GAMMA,  G.  Q 

COMMON  FLUXl.  FLUX2.  FLUX3.  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2.  TAMB3.  TAMB4.  TAMB5.  TAMB6 

COMMON  HI.  H2,  H3.  H4.  H5,  H6 

COMMON  BIOl,  BI02.  BI03,  BI04,  B105,  BI06 

COMMON  SIGI,  SIG2,  SIG3.  SIG4.  SIG5.  SIG6 

COMMON  Ul.  L"2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3.  V4,  V5,  V6 

COMMON  Wl,  \V2,  W3,  W4,  W5,  W6 

COMMON  XI,  X2,  X3,  X4,  X5,  X6 

COMMON  COUNT.  FREQ 

COMMON  EPSI,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN,  VI 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE.  FA,  ML" 

COMMON  SOLAR1.  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
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COMMON  EARTH  1,  EARTH2.  EARTH3,  EARTH4.  EARTH5,  EARTH6 
COMMON  ALBED1.  ALBED2,  ALBED3,  ALBED4.  ALBED5,  ALBED6 
COMMON  ABS1.  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC1.  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 
COMMON  SUN,  ECLIPS.  Ql,  Q2,  Q3,  PERIOD.  PI 
COMMON  PI,  P2,  P3,  P4.  P5,  P6 

IF((J.EQ.l)  AND.  (I.EQ.l))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(I,J,K+1)-T(I,J,K))  + 
&  L'5*(TSTAR1(I  +  1,J,K)  -  TSTAR1(I,J.K))  + 

&  V1*(TAMB1  -  T(I.J.K))  +  V3*(TAMB3  -  T(I.J.K))  + 

&  V6*(TAMB6  -  T(IJ.K))  4-  Wl  +  W3  +  \V6  + 

&  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  + 

&  X6*(T(U,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(I.J.K)  +  U4*(T(U,K+1)-T(U,K))  + 
&  U5*(TSTAR1(I  +  1,J,K)-TSTAR1(I,J.K))  + 

&  V3*(TAMB3  -  T(IJ.K))  +  V6*(TAMB6  -  T(I,J,K»  + 

&  W3  +  W6  +  X3*(T(U,K)**4  -  TAMB3**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((J.EQ.N)  AND.  (I.EQ.l))  THEN 

D(J)  =  T(I.J.K)  +  U4*(T(I,J,K+1)-T(I,J,K))  + 

&  L"5*(TSTAR1(I+  l.J.K)  -  TSTARl(I.J.K))    + 

&  V2*(TAMB2  -  T(I,J,K))  +  V3*(TAMB3  -  T(I,J,K))  + 

&  V6*(TAMB6  -  T(I,J,K))  +  W2  +  W3  +  W6  + 

&  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X3*(T(I,J,K)**4  -  TAMB3-4)  + 

&  X6*(T(I,J?K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((J.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(J)  =  T(IJ.K)  +  L'4*(T(I,J,K+1)-T(I,J,K))  + 
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&  FO*(TSTARl(I-l,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K» 

&  +  V1*(TAMB1  -  T(I,J,K»  +  V3*(TAMB3  -  T(I,J,K))  +  VV1  + 

&  W3  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(I,J?K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  ((I.GT.l)  .AND. 
&  (I.LT.M)))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(I,J,K+1)-T(I,J,K))  + 
&  FO*(TSTARl(I-l,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V3*(TAMB3  -  T(I,J,K))  +  W3  + 

&  X3*(T(I,J,K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((J.EQ.N)  .AND.  {{I.GT.l)  .AND.  {I.LT.M)))  THEN 

D{J)  =  T{I.J.K)  +  U4*(T(U,K+1)-T(I,J,K))  + 
&  FO*(TSTARl(I-lJ,K)  +  TSTAR1(I  +  I.J.K)  -  2*TSTAR1(I,J,K)) 

&  +  V2*(TAMB2  -  T(I,J,K))  +  V3*(TAMB3  -  T(I,J,K))  +  W2  + 

&  W3  +  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X3*(T(U.K)**4  -  TAMB3**4)  +  Yl*QDOT(U,K) 

ELSE  IF((J.EQ.l)  .AND.  (I.EQ.M))  THEN 

D{J)  =  T(I,J,K)  +  L"4*(T(U,K  +  1)-T(U,K))  + 
&  U5*(TSTAR1(I-1,J,K)  -  TSTARl(I.J.K))  + 

&  V1*(TAMBI  -  T(I.J.K))  +  V3*(TAMB3  -  T(I.J.K))  + 

&  V5*(TAMB5  -  T(I.J.K))  +  Wl  +  W3  +  W5  + 

S:  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(I,J,K)**4  .  TAMB3**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF(({J.GT.l)  .AND.  (J.LT.N))  AND.  (I.EQ.M))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(I,J,K+1)-T(I,J,K))  + 
&  L"5*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K))  + 

&  V3*(TAMB3  -  T(I,J,K))  +  V5*(TAMB5  -  T(I,J,K))  +  W3  + 

&  W5  +  X3*(T(U,K)**4  -  TAMB3**4)  + 
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&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I.J.K) 

ELSE 

D(J)  =  T(IJ.K)  +  U4*(T(I,J,K+1)-T(I,J,K))  + 

&  L'5*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K))  + 

&  V2*(TAMB2  -  T(I,J,K))  +  V3*(TAMB3  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  W2  +  W3  +  W5  + 

&  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ENDIF 

RETURN 

END 


SUBROUTINE  YANK2 

SUBROUTINE  YANK2 

DIMENSION  A(  30),  B{  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30).  GAMMA(  30).  QDOT(  30,  30.  30) 
DIMENSION  T(    30.    30.    30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30,   30.    30) 

REAL  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C.  D,  BETA.  GAMMA 

REAL  FLUX1.  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl.  BI02,  BI03.  BI04,  BI05,  BI06 

REAL  SIG1,  SIG2,  S1G3,  SIG4.  SIG5,  SIG6 
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REAL  LI,  L'2,  L'3.  LA,  L'5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  W6 

REAL  XI.  X2,  X3.  X4.  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Yl 

REAL  CTIME,  TIMEO.  T1ME1 

REAL  SOLAR,  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 

REAL  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1.  ALBED2.  ALBED3.  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1,  ABS2.  ABS3.  ABS4,  ABS5.  ABS6 

REAL  SAC1,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN.  ECLIPS.  Ql.  Q2.  Q3.  PERIOD.  PI 

REAL  PI.  P2.  P3.  P4,  P5,  P6 

INTEGER  I,  J.  K.  M.  N,  P.  IF.  L.  IFP1.  LAST.  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI,  ANS2.  ANS3.  VAL,  NOUT 

COMMON  TINIT.  TSTARI.  TSTAR2.  T.  TEMP 

COMMON  CP,  Kl,  RHO.  R.  Rl.  R2.  TIME,  DELT 

COMMON  LX.  LY,  LZ.  DELX.  DELY,  DELZ 

COMMON  I.  J,  K.  M.  N.  P.  IF,  L.  IFP1,  LAST 

COMMON  A.  B.  C.  D.  BETA.  GAMMA.  G.  Q 

COMMON  FLUX1.  FLUX2.  FLUX3.  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  B102,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  L'2,  U3,  LA,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  \V2,  W3,  \V4,  VV5,  W6 

COMMON  XI.  X2,  X3,  X4.  X5.  X6 

COMMON  COUNT,  FREQ 
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COMMON  EPS1.  EPS2,  EPS3.  EPS4.  EPS5,  EPS6 

COMMON  QDOT.  GEN.  Yl 

COMMON  TIM EO.  TIME1 

COMMON  SOLAR,  EARTH.  RE,  DIST,  ALT.  FE,  FA,  ML' 

COMMON  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1,  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 

COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 

COMMON  PI,  P2,  P3,  P4,  P5,  P6 

IF((J.EQ.l)  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(I.J.K)  +  L"2-(T(IJ.K-1)  +  T(I.J.K+  1)  -  2*T(I,J,K))  + 
&  U5*(TSTAR1(I  +  1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V1*(TAMB1  -  T(IJ,K))  +  V6*(TAMB6  -  T(I.J.K))  +  WI  + 

&  \V6  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(IJ.K)  +  U2*(T(U,K-1)  +  T(I,J,K+1)-2*T(I,J,K))  + 
&  L'5*(TSTAR1(I+1,J,K)  -  TSTAR1(I,J.K)) 

&  +  V6*(TAMB6  -  T(I.J.K))  4-  W6  + 

&  X6*(T(IJ,K)**4  -  TAMB6**4)  +  Yl*QDOT(IJ,K) 

ELSE  IF((J.EQ.N)  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(LJ.K)  +  U2*(T(IJ,K-1)  +  T(I,J,K+1)-  2*T(I,J,K))  + 
&  U5*(TSTAR1(I  +  1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V2*(TAMB2  -  T(IJ.K))  +  V6*(TAMB6  -  T(I,J,K))  +  W2  + 

&  \V6  +  X2*(T(I,J,K)**4  -  TAMB2**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6—4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((J.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(J)  =  T(I.J,K)  +  L'2*(T(I,J,K-1)  +  T(I,J,K+  1)  -  2*T(I,J,K))  + 
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&  FO*(TSTARl(I-U,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V1*(TAMB1  -  T(I.J.K))  +  Wl  + 

&  X1*(T(I,J,K)**4  -  TAMB1**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  ((I.GT.l)  .AND. 
&  (I.LT.M)))  THEN 

D(J)  =  T(IJ,K)  +  U2*(T(I,J,K-1)  +  T(U,K+1)-  2*T(I,J,K))  + 
&  FO*(TSTARl(M,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  YI*QDOT(I,J,K) 

ELSE  IF((J.EQ.N)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(J)  =  T(I.J,K)  +  L"2*(T(U,K-1)  +  T(I,J,K+1)-  2*T(I,J,K))  + 
&  FO*(TSTARl(I-l,J,K)  +  TSTARKI  +  1.J.K)  -  2*TSTAR1(I,J,K)) 

&  +  V2*(TAMB2  -  T(I,J,K))  +  W2  + 

&  X2*(T(I.J,K)**4  -  TAMB2**4)  +  Yl*QDOT(IJ,K) 

ELSE  IF((J.EQ.l)  .AND.  (I.EQ.M))  THEN 

D(J)  =  T(I.J.K)  +  L'2*(T(U,K-1)  +  T(I,J,K+ 1)  -  2*T(I,J,K))  + 
&  U5*(TSTAR1(I-1,J,K)  -  TSTARl(IJ.K)) 

&  +  V1*(TAMB1  -  T(I.J.K))  +  V5*(TAMB5  -  T(I.J.K))  +  Wl  + 

&  W5  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.M))  THEN 

D(J)  =  T(U,K)  +  U2*(T(U,K-1)  +  T(I,J,K+l)-2*T(U,K))  + 
&  U5*(TSTAR1(I-U,K)  -  TSTAR1(I,J,K)) 

&  +  V5;::(TAMB5  -  T(I,J,K))  +  W5  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ELSE 

D(J)  =  T(I.J,K)  +  U2*(T(I,J,K-1)  +  T(U,K+1)-2*T(I,J,K))  + 
&  U5*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V2*(TAMB2  -  T(LJ,K))  +  V5*(TAMB5  -  T(I,J,K))  +  W2  + 

&  W5  +  X2*(T(I,J,K)**4  -  TAMB2**4)  + 
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&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ENDIF 

RETURN 
END 


*       SUBROUTINE  YANK 3 

SUBROUTINE  YANK3 

DIMENSION  A(  30),  B(  30),  C(  30).  D(  30),  TEMP(  30) 
DIMENSION  BE1  \(  30).  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(    30.    30.    30).  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30.    30.    30) 

REAL  T1NTT,  TSTAR1.  TSTAR2,  T.  TEMP 

REAL  CP.  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX.  LY,  LZ,  DELX,  DELY.  DELZ 

REAL  A.  B,  C,  D.  BETA.  GAMMA 

REAL  FLUX1.  FLUX2,  FLUX3.  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4.  TAMB5.  TAMB6 

REAL  HI.  H2,  H3,  H4.  115.  H6 

REAL  BlOl,  BI02.  BI03.  BI04,  BI05.  BI06 

REAL  SIG1,  SIG2.  SIG3.  SIG4,  SIG5.  SIG6 

REAL  Ul.  U2,  U3,  U4.  U5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  W6 

REAL  XI,  X2.  X3.  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Yl 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 

REAL  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
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REAL  EARTH  1.  EARTH2.  EARTHS,  EARTH4,  EARTH5,  EARTH6 
REAL  ALBED1.  ALBED2.  ALBED3,  ALBED4,  ALBED5.  ALBED6 
REAL  ABS1,  ABS2,  ABS3.  ABS4.  ABS5,  ABS6 
REAL  SAC1,  SAC2.  SAC?,  SAC4.  SAC5,  SAC6 
REAL  SUN,  ECLIPS.  Ql.  Q2,  Q3,  PERIOD,  PI 
REAL  PI,  P2,  P3,  P4,  P5,  P6 

INTEGER  I,  J,  K.  M,  N,  P,  IF,  L,  IFP1,  LAST,  G.  Q 
INTEGER  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

COMMON  LX.  LY,  LZ.  DELX,  DELV,  DELZ 

COMMON  I.  J.  K.  M.  N.  P,  IF,  L.  IFP1,  LAST 

COMMON  A.  B.  C,  D.  BETA.  GAMMA.  G,  Q 

COMMON  FLUX1.  FLUX2.  FLUX?.  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI.  112.  H3.  H4.  H5,  H6 

COMMON  BIOl.  3102,  BIO?,  BI04.  BI05,  BI06 

COMMON  SIGI.  SIG2.  SIG?.  SIG4.  SIG5,  SIG6 

COMMON  Ul.  U2.  I."?,  U4.  U5 

COMMON  VI,  V2.  V?.  V4.  V5.  V6 

COMMON  Wl,  W2,  W3,  W4,  VV5,  W6 

COMMON  XI.  X2.  X?.  X4.  X5.  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1,  EPS2,  EPS?,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN,  Yl 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 

COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1.  ABS2.  ABS3.  ABS4,  ABS5,  ABS6 

COMMON  SAC1.  SAC2.  SAC3,  SAC4.  SAC5,  SAC6 


161 


COMMON  SUN.  ECLIPS.  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PI,  P2,  P3,  P4,  P5,  P6 

IF((J.EQ.l)  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(I,J,K-1)  -  T(I,J,K))  + 
&  L'5*(TSTAR1(I  +  l.J.K)  -  TSTAR1(I,J,K))  + 

&  V1*(TAMB1  -  T(I,J,K))  +  V4*(TAMB4  -  T(I,J,K))  + 

&  V6*(TAMB6  -  T(I,J,K»  4-  Wl  +  W4  +  W6  + 

&  X1*(T(I,J,K)**4-TAMB1**4)  + 

&  X4*(T(U,K)**4  -  TAMB4**4)  + 

&  X6*(T(U,K)**4  -  TA.MB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(I.J.K)  +  L"4*(T(U,K-1)  -  T(I,J,K))  + 
&  U5*(TSTAR1(I+1,J,K)  -  TSTAR1(I,J,K))  + 

&  V4*(TAMB4  -  T(I.J.K))  +  V6*(TAMB6  -  T(I,J,K))  +  W4  + 

&  W6  +  X4*(T(I,J,K)**4  -  TAMB4**4)  + 

&  X6*(T(U,K)**4  -  TAMB6**4)  +  Vl*QDOT(I,J,K) 

ELSE  IF((J.EQ.N)  .AND.  (I.EQ.l))  THEN 

D(J)  =  T(I.J.K)  +  L*4*(T(I,J,K-1)  -  T(I.J.K))  + 
&  U5r;:(TSTARl(I+ l.J.K)  -  TSTARl(IJ.K))  + 

&  V2*(TAMB2  -  T(I,J,K))  +  V4*(TAMB4  -  T(I,J,K))  + 

&  V6*(TAMB6  -  T(  l.J.K))  +  W2  +  W4  +  \V6  + 

&  X2*(T(IrI,:<)**4  -  TAMB2**4)  + 

&  X4*(T(I,J,K)**4  -  TAMB4**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((J.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(U,K-1)  -  T(I,J,K))  + 
&  F0*(TSTAR1(M,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V1*(TAMB1  -  T(I,J,K))  +  V4*(TAMB4  -  T(I,J,K))  +  Wl  + 

Sz  W4  +  X1*(T(U,K)**4  -  TAMB1**4)  + 
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&  X4*(T(I,J,K)**4  -  TAMB4**4)  +  Y1*QD0T(I,J,K) 

ELSE  IE(i(J.GT.l)  .AND.  (J.LT.N))  .AND.  {(I.GT.l)  .AND. 
&  (I.LT.M)))  THEN 

D(J)  =  T(I.J,K)  +  U4*(T(I,J,K-1)  -  T(I,J,K))  + 
&  F0*(TSTAR1(I-1.J.K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(U,K)) 

&  +  V4*(TAMB4  -  T(I,J,K»  +  W4  + 

&  X4*(T(I,J,K)**4  -  TAMB4**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF((J.EQ.N)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(J)  =  T(U,K)  +  L'4*(T(I,J,K-1)  -  T(I,J,K))  + 
&  F0*(TSTAR1(I-1}J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(IJ,K)) 

&  +  V2*(TAMB2  -  T(IJ.K))  +  V4*(TAMB4  -  T(U,K))  +  W2  + 

&  W4  +  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X4*(T(I,J,K)**4  -  TAMB4**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((J.EQ.l)  .AND.  (I.EQ.M))  THEN 

D(J)  =  T(I,J,K)  +  L"4*(T(I,J,K-1)  -  T(I,J.K))  + 
&  U5*(TSTAR1(I-1J,K)  -  TSTARl(U.K))  + 

&  V1*(TAMB1  -  T(I.J.K))  +  V4*(TAMB4  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I.J.K))  +  Wl  +  W4  +  W5  + 

&  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X4*(T(U,K)**4  -  TAMB4**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.M))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(I,J,K-1)  -  T(I,J,K))  + 
&  U5*(TSTAR1(I-1,J,K)  -  TSTAR1(U,K))  + 

&  V4*(TAMB4  -  T(IJ.K))  +  V5*(TAMB5  -  T(I,J,K))  +  \V4  + 

&  \V5  +  X4*(T(I,J,K)**4  -  TAMB4**4)  + 

&  Xf*(T(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(IJ,K) 

ELSE 
D(J)  =  T(I,J,K)  +  L'4*(T(I,J,K-1)  -  T(I,J,K))  + 
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&  U5*(TSTAR1(1-1,J,K)  -  TSTAR1(I,J,K))  + 

&  V2*(TAMB2  -  T(I.J.K))  +  V4*(TAMB4  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  W2  +  \V4  +  W5  + 

&  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X4*(T(U,K)**4  -  TAMB4**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ENDIF 

RETURN 
END 


SUBROUTINES  ZULU1,  ZULU2,  AND  ZULU 3  COMPUTE  COEFFICIENT 
ARR.-W  D  IN  THE  Z  DIRECTION 

SUBROUTINE  ZULU  1 

SUBROUTINE  ZULU  1 

DIMENSION  A(  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION^    30,   30,   30).  TSTAR1(  30.   30.   30) 
DIMENSION  TSTAR2(  30,    30.   30) 

REAL  UNIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R.  Rl,  R2,  TIME,  DELT 

REAL  LX.  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C.  D,  BETA,  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5.  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3.  H4,  H5,  H6 
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REAL  BI01.  BI02.  BI03,  BI04,  BI05,  BI06 

REAL  SIG1.  SIG2,  SIG3,  SIG4.  SIG5,  SIG6 

REAL  LI,  U2,  L'3,  L'4,  U5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  \V4,  W5,  W6 

REAL  XI,  X2,  X3,  X4.  X5,  X6 

REAL  EPS1,  EPS2,  EPS3.  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Yl 

REAL  CTIME.  TIMEO,  TIME1 

REAL  SOLAR,  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  ML' 

REAL  SOLAR1,  SOLAR2,  SOLAR3.  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1.  EARTH2.  EARTH3,  EARTH4.  EARTH5,  EARTH6 

REAL  ALBED1.  ALBED2,  ALBED3.  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1.  ABS2.  ABS3,  ABS4.  ABS5,  ABS6 

REAL  SAC1.  SAC2.  SAC3,  SAC4.  SAC5.  SAC6 

REAL  SUN.  ECLIPS,  Ql.  Q2.  Q3.  PERIOD.  PI 

REAL  PI,  P2,  P3,  P4.  P5,  P6 

INTEGER  I.  J,  K.  M.  N,  P.  IF.  L,  IFP1.  LAST,  G.  Q 
INTEGER  COUNT.  FREQ.  ANSI.  ANS2.  ANS3,  VAL,  XOUT 

COMMON  TINIT,  TSTARI.  TSTAR2,  T,  TEMP 

COMMON  CP.  Kl,  RHO.  R.  Rl.  R2,  TIME,  DELT 

COMMON  LX.  LY.  LZ.  DELX.  DELY,  DELZ 

COMMON  I,  J.  K.  M.  N.  P.  IF.  L.  IFP1,  LAST 

COMMON  A,  B.  C,  D,  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  U2,  U3,  L'4,  L5 

COMMON  VI.  V2,  V3,  V4.  V5,  V6 

COMMON  Wl.  W2,  W3,  \V4,  W5.  \V6 
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COMMON  XI.  X?.  X3.  X4.  X5,  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1.  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT.  GEN.  VI 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH.  RE,  DIST,  ALT,  FE,  FA,  ML" 

COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

COMMON  SUN,  ECLIPS.  Ql,  Q2,  Q3.  PERIOD,  PI 

COMMON  PI.  P2.  P3,  P4.  P5,  P6 

IF((K.EQ.l)  -AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(IJ.K)  +  L'3*(TSTAR2(I.J+  l.K)  -  TSTAR2(I,J,K))  + 
6c  U5*(TSTAR1(I+1,J,K)  -  TSTAR1(I.J,K))  + 

&  V1*(TAMB1  -  TSTAR2(I.J,K))  +  V3*(TAMB3  -  TSTAR2(I,J.K)) 

&  +  V6*(TAMB6  -  TSTAR2(I.J.K))  +  Wl  +  \V3  +  W6  + 

&  X1*(TSTAR2(U,K)**4  -  TAMB1**4)  + 

&  X3*(TSTAR2(I,J,K)**4  -  TAMB3**4)  + 

&  X6*(TSTAR2(IJ,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(I.J.K)  +  U3:(TSTAR2(I.J  +  l.K)  -  TSTAR2(I.J.K))  + 
&  L'5*(TSTAR1(I  +  1,J,K)  -  TSTAR1(I.J,K))  + 

&  V1*(TAMB1  -  TSTAR2(I,J,K))  +  V6*(TAMB6  -  TSTAR2(I,J,K)) 

&  +  Wl  +  W6  +  X1*(TSTAR2(I,J,K)**4  -  TAMB1**4)  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  1F((K.EQ.P)  .AND.  (I.EQ.l))  THEN" 

D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I,J+  1,K)  -  TSTAR2(I,J,K))  + 
&  U5*(TSTAR1(I  +  1,J,K)  -  TSTAR1(I,J,K))  + 

&  V1*(TAMB1  -  TSTAR2(I.J,K))  +  V4*(TAMB4  -  TSTAR2(IJ.K)) 
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&  +  V6*(TAMB6  -  TSTAR2(I,J,K))  +  Wl  4-  W4  +  \V6  + 

&  X 1  -•( TSTA R2(  I . J . K )* *4  -  TA M B 1  * *4 )  + 

&  X4*(TSTAR2(U,K)**4  -  TAMB4**4)  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF((K.EQ.l)  AND.  ((I.GT.l)  AND.  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I,J+ 1,K)  -  TSTAR2(I,J,K))  + 
&  F0*(TSTAR1(I-1,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V1*(TAMB1  -  TSTAR2(I,J,K))  + 

&  V3*(TAMB3  -  TSTAR2(I,J,K))  +  Wl  +  W3  + 

&  X1*(TSTAR2(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(TSTAR2(U,K)**4  -  TAMB3**4)  +  Y1*QD0T(U.K) 

ELSE  IF(((K.GT.l)  AND.  (K.LT.P))  AND.  {(I.GT.l)  AND. 
&  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  L"3*(TSTAR2(I,J  +  l.K)  -  TSTAR2(I,J,K))  + 
&  F0*(TSTAR1(I-U,K)  +  TSTAR1(I  +  1.J.K)  -  2*TSTAR1(U,K)) 

&  +  V1*(TAMBJ  -  TSTAR2(I,J,K))  +  Wl  + 

&  X1*(TSTAR2(IJ.K)**4  -  TAMB1**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.P.)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  L'3*(TSTAR2(U  +  1,K)  -  TSTAR2(I,J,K»  + 
&  F0::(TSTAR1(I-1.J.K)  +  TSTAR1(I  +  1.J.K)  -  2*TSTAR1(I,J,K)) 

&  +  VI  *(TA M  B 1  -  TSTA  R2(  I J , K ) )  + 

&  V4*(TAMB4  -  TSTAR2(I,J,K))  +  Wl  +  W4  + 

&  X1*(TSTAR2(U,K)**4  -  TAMB1**4)  + 

&  X4*(TSTAR2(I,J,K)**4  -  TAMB4**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.l)  AND.  (I.EQ.M))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I,J  +  1,K)  -  TSTAR2(U,K))  + 
&  U$*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K))  + 

&  V1*(TAMB1  -  TSTAR2(I,J,K))  +  V3*(TAMB3  -  TSTAR2(I,J,K)) 

&  +  V5*(TAMB5  -  TSTAR2(I,J,K))  +  Wl  +  W3  +  W5  + 

&  X 1  *(TSTAR2( I  ,J,K)**4  -  TAMB1  **4)  + 
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&  X3*(TSTAR2(I,J,K)**4  -  TAMB3**4)  + 

&  X5*(TSTAR2(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.M))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I,J+ 1,K)  -  TSTAR2(I,J,K))  + 
&  U5*(TSTARl(i-U,K)  -  TSTAR1(I,J,K»  + 

&  V1*(TAMB1  -  TSTAR2(I.J,K))  +  V5*(TAMB5  -  TSTAR2(I,J.K)) 

&  +  Wl  +  W5  +  X1*(TSTAR2(I,J,K)**4  -  TAMB1**4)  + 

&  X5*(TSTAR2(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE 

D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I,J  +  1,K)  -  TSTAR2(LJ,K))  + 

&  L"5*(TSTAR1(I-1  J,K)  -  TSTAR1(I,J,K»  + 

&  VI  ■(TAMB1  -  TSTAR2U.J.K))  +  V4*(TAMB4  -  TSTAR2(I,J,K» 

&  +  V5*(TAMB5  -  TSTAR2(I,J.K))  +  Wl  +  W4  +  \V5  + 

&  X1*(TSTAR2(I,J,K)»*4  -  TAMB1**4)  + 

&  X4*(TSTAR2(IfJ,K)**4  -  TAMB4**4)  + 

&  X5*(TSTAR2(I  J,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ENDIF 

RETURN 
END 


SUBROUTINE  ZULU2 

SUBROUTINE  ZULU2 

DIMENSION  A(  30),  B(  30).  C(  30).  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(    30,   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30,   30,   30) 

REAL  TINTT,  TSTAR1,  TSTAR2,  T.  TEMP 
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REAL  CP.  Kl,  RHO.  R.  Rl.  R2,  TIME.  DELT 

REAL  LX,  LY,  LZ,  DELX.  DELY,  DELZ 

REAL  A,  B,  C,  D.  BETA.  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3.  H4.  H5,  H6 

REAL  BlOl,  BI02,  BI03,  BI04,  BI05,  BI06 

REAL  SIG1.  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul,  L'2,  U3,  L'4,  L"5 

REAL  VI,  V2.  V3,  V4,  V5.  V6 

REAL  Wl,  W2,  W3,  \V4.  W5,  \V6 

REAL  XI,  X2.  X3.  X4,  X5,  X6 

REAL  EPS1,  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT.  GEN.  Yl 

REAL  CTIME.  TIMEO.  TIME1 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST.  ALT.  FE,  FA.  ML' 

REAL  SOLAR1,  SOLAR2.  SOLAR3.  SOLAR4,  SOLAR5.  SOLAR6 

REAL  EARTH  1.  EARTH2.  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1.  ALBED2.  ALBED3.  ALBED4.  ALBED5.  ALBED6 

REAL  ABS1.  ABS2.  ABS3,  ABS4.  ABS5.  ABS6 

REAL  SAC1.  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN.  ECLIPS.  Ql.  Q2.  Q3,  PERIOD,  PI 

REAL  PI.  P2.  P3.  P4,  P5,  P6 

INTEGER  I.  J.  K.  M.  N.  P.  IF,  L,  IFP1.  LAST.  G,  Q 
INTEGER  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  YAL,  NOUT 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON"  CP,  Kl,  RHO.  R,  Rl,  R2.  TIME,  DELT 

COMMON  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N.  P.  IF,  L,  IFP1,  LAST 

COMMON  A,  B.  C,  D,  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5.  FLUX6 

COMMON  TAMB1.  TAMB2,  TAMB3,  TAMB4,  TAMB5.  TAMB6 
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COMMON  HI.  H2,  H3,  H4,  H5.  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BIOG 

COMMON  SIG1.  SIG2,  SIG3,  SIG4,  SIG5.  SIG6 

COMMON  Ul,  L'2,  U3,  U4,  L"5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  \V2,  W3,  W4,  W5,  \V6 

COMMON  XI,  X2,  X3.  X4,  X5,  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1.  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT.  GEN,  Yl 

COMMON  TIMEO.  TIME1 

COMMON  SOLAR.  EARTH.  RE.  DIST,  ALT.  FE,  FA,  ML' 

COMMON  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4,  SOLARS.  SOLAR6 

COMMON  EARTH  1.  EARTH2.  EARTH3.  EARTH4.  EARTH5,  EARTH6 

COMMON  ALBED1.  ALBED2.  ALBED3,  ALBED4,  ALBED5.  ALBED6 

COMMON  ABS1.  ABS2.  ABS3.  ABS4.  ABS5,  ABS6 

COMMON  SAC1.  SAC2.  SAC3.  SAC4.  SAC5.  SAC6 

COMMON  SUN,  ECLIPS.  Ql.  Q2.  Q3.  PERIOD.  PI 

COMMON  PI.  P2.  P3.  P4,  P5.  P6 

IF((K.EQ.l)  .AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I.J+ l.K) - 
&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(I  +  1,J,K)  -  TSTARl(I.J.K)) 

&  +  V3*(TAMB3  -  TSTAR2(I.J,K))  + 

&  V6*(TAMB6  -  TSTAR2(I,J,K))  +  W3  +  W6  + 

&  X3*(TSTAR2(IJ.K)**4-  TAMB3**4)  + 

&  X6-(TSTAR2(I.J,K)!!:!!:4  -  TAMB6:!:*4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J+ 1,K) - 
&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(I+  1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V6*(TAMB6  -  TSTAR2(I,J,K))  +  W6  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 
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ELSE  IF((K.EQ.P)  .AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(I.J.K)  +  LT*(TSTAR2(I ,J-1,K)  +  TSTAR2(I.J+  1,K)  - 
&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(I  +  1,J,K)  -  TSTARl(IJ.K)) 

&  +  V4*(TAMB4  -  TSTAR2(U,K))  + 

&  V6*(TAMB6  -  TSTAR2(I,J,K))  +  W4  +  W6  + 

&  X4*(TSTAR2(I,J,K)**4  -  TAMB4**4)  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  L"1*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J  +  1,K)  ■ 
&  2*TSTAR2(U,K))  +  F0*(TSTAR1(I-1.J.K)  +  TSTAR1(I  + 1,J,K) 

&  -  2*TSTAR1(U,K))  +  V3*(TAMB3  -  TSTAR2(I,J,K))  + 

&  W3  +  X3*(TSTAR2(U,K)**4  -  TAMB3**4)  + 

&  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  ((I.GT.l)  AND. 
&  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I.J.K)  +  U1*(TSTAR2(U-1,K)  +  TSTAR2(I,J  +  1,K)  ■ 
&  2*TSTAR2(IJ,K))  +  FO*(TSTARl(I-l,J,K)  +  TSTAR1(I  +  l.J.K) 

&  -  2*TSTAR1(I,J,K))  +  Y1*QD0T(I,J,K) 

ELSE  IF((K.EQ.P)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I.J  +  l.K)  • 
&  2*TSTAR2(I,J,K))  +  FO*(TSTARl(I-l,J,K)  +  TSTAR1(I  + 1,J,K) 

&  ■  2*TSTAR1(I,J,K))  +  V4*(TAMB4  -  TSTAR2(I.J,K))  + 

&  W4  +  X4*(TSTAR2(I,J,K)**4  -  TAMB4**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  (I.EQ.M))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  L'1*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J+  1,K)  • 
&  2*TSTAR2(U,K))  +  U5*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V3*(TAMB3  -  TSTAR2(I,J,K))  + 

&  V5*(TAMB5  -  TSTAR2(I,J,K))  +  W3  +  W5  + 

6c  X3*(TSTAR2(U,K)**4  -  TAMB3**4)  + 
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&  X5*(TSTAR2(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I.J.K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  AND.  (I.EQ.M))  THEN 

D(K)  =  TSTAR2(I.J.K)  +  UI*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J  + 1,K) 
&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V5*(TAMB5  -  TSTAR2(I,J,K))  +  W5  + 

&  X5*(TSTAR2(U,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ELSE 

D(K)  =  TSTAR2(LJ.K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J  + 1,K) 

&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(I-U,K)  -  TSTAR1(I,J,K)) 

&  +  V4*(TAMB4  -  TSTAR2(IJ,K»  + 

&  V5*(TAMB5  -  TSTAR2(I,J,K))  +  W4  +  VV5  + 

6c  X4*(TSTAR2(I,J;K)**4  -  TAMB4**4)  + 

&  X5*(TSTAR2(IJ,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ENDIF 

RETURN 
END 


SUBROUTINE  ZULU3 

SUBROUTINE  ZULU3 

DIMENSION  A(  30),  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(   30,   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30,   30,   30) 

REAL  TINTT.  TSTAR1,  TSTAR2,  T,  TEMP 
REAL  CP,  Kl.  RHO,  R,  Rl,  R2,  TIME,  DELT 
REAL  LX,  LY.  LZ,  DELX.  DELY,  DELZ 
REAL  A,  B.  C,  D.  BETA,  GAMMA 
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REAL  FLUX1,  FLUX2,  FLUX3.  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1.  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI.  H2,  H3.  H4,  H5.  H6 

REAL  BI01.  BI02,  BI03.  BI04.  BI05,  BI06 

REAL  SIG1,  SIG2,  SIG3,  SIG4.  SIG5,  SIG6 

REAL  L'l,  U2,  U3,  U4,  U5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  \V1,  W2,  W3,  VV4,  W5,  \V6 

REAL  XI.  X2,  X3,  X4,  X5.  X6 

REAL  EPS1,  EPS2,  EPS3.  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Yl 

REAL  CTIME.  TIMEO.  TIM  El 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  ML' 

REAL  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4,  SOLAR5.  SOLAR6 

REAL  EARTH  1.  EARTH2.  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1,  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1.  ABS2,  ABS3.  ABS4.  ABS5.  ABS6 

REAL  SAC1.  SAC2.  SAC3,  SAC4.  SAC5.  SAC6 

REAL  SUN,  ECLIPS.  Ql.  Q2.  Q3,  PERIOD,  PI 

REAL  PI.  P2.  P3.  P4.  P5,  P6 

INTEGER  I.  J,  K.  M.  N.  P.  IF.  L.  IFP1,  LAST.  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI,  ANS2.  ANS3,  VAL,  NOUT 

COMMON  TIN  IT,  TSTAR1.  TSTAR2,  T.  TEMP 

COMMON  CP,  Kl,  RHO,  R,  Rl.  R2,  TIME,  DELT 

COMMON  LX,  LY,  LZ,  DELX.  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N.  P.  IF,  L,  IFP1,  LAST 

COMMON  A,  B.  C,  D.  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIGI.  SIG2.  SIG3,  SIG4,  SIG5,  SIG6 
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COMMON  LI,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  \Y2,  W3,  W4,  W5,  W6 

COMMON  XI.  X2,  X3.  X4,  X5,  X6 

COMMON  COUNT,  FREQ 

COMMON  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN,  VI 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 

COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5.  ALBED6 

COMMON  ABS1,  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1.  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

COMMON  SUN.  ECLIPS,  Ql.  Q2,  Q3,  PERIOD.  PI 

COMMON  PI.  P2.  P3.  P4.  P5.  P6 

IF((K.EQ.l)  .AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(1.J.K)  +  L"3*(TSTAR2(IJ-1,K)  -  TSTAR2{I.J.K))  + 
&  U5::(TSTAR1(I  +  1.J,K)  -  TSTARl(I.J.K))  + 

&  V2:(TAMB2  -  TSTAR2(I.J.K))  +  V3*(TAMB3  -  TSTAR2(I.J.K)) 

&  +  V6*(TAMB6  -  TSTAR2(I,J,K))  +  \V2  +  W3  +  W6  + 

&  X2*(TSTAR2(I,J,K)**4  -  TAMB2**4)  + 

&  X3*(TSTAR2(U,K)**4  -  TAMB3**4)  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.l))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J,K))  + 
&  U5*(TSTAR1(I  +  1,J,K)  -  TSTAR1(I,J,K))  + 

&  V2*(TA.MB2  -  TSTAR2(I,J,K))  +  V6*(TAMB6  -  TSTAR2(I,J,K)) 

&  +  W2  +  W6  +  X2i:(TSTAR2(I,J,K)*-4  -  TAMB2**4)  + 

&  X6*(TSTAR2(I,J,K)**4  .  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.P)  .AND.  (I.EQ.l))  THEN 
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D(K)  =  TSTAR2(I.J.K)  +  L*3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J.K))  + 

&  L'5*(TSTAR1(I  +  U,K)  -  TSTARl(I.J.K))  + 

&  V2*(TAMB2  -  TSTAR2(I,J,K»  +  V4*(TAMB4  -  TSTAR2(I,J,K)) 

&  +  V6*(TAMB6  -  TSTAR2(U,K))  +  W2  +  W4  +  W6  + 

&  X2*(TSTAR2(U,K)**4  -  TAMB2**4)  + 

&  X4*(TSTAR2(I,J,K)**4  -  TAMB4**4)  + 

&  X6*(TSTAR2(U,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J,K)  +  L'3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J.K))  + 
&  FO:(TSTARl(I  + l.J.K)  +  TSTAR1(I-1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V2  -( TA M B 2  -  1 S T A  R2(I ,J,K))  + 

&  V3*(TAMB3  -  TSTAR2(I.J.K))  +  W2  +  W3  + 

&  X2*(TSTAR2(U,K)**4  -  TAMB2**4)  + 

&  X3*(TSTAR2(U,K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  ((I.GT.l)  .AND. 
&  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I.J.K)  +  U3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J,K))  + 
&  FO:(TSTARKT  +  l.J.K)  +  TSTARl(I-l.J.K)  -  2*TSTAR1(I,J,K)) 

&  +  V2*(TAMB2  -  TSTAR2( l.J.K))  +  W2  + 

&  X2*(TSTAR2(I,J,K)**4  -  TAMB2**4)  +  Y1*QD0T( l.J.K) 

ELSE  IF((K.EQ.P)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I,J.K)  +  U3*(TSTAR2(I,J-1,K)  -  TSTAR2(1.J.K))  + 
&  FO*(TSTARl(I+l,J,K)  +  TSTAR1(I-1.J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V2*(TAMB2  -  TSTAR2(I,J,K))  + 

&  V4*(TAMB4  -  TSTAR2(I,J,K))  +  W2  +  W4  + 

&.  X2*(TSTAR2(I,J,K)**4  -  TAMB2**4)  + 

&  X4*(TSTAR2(I,J,K)**4  -  TAMB4**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  (I.EQ.M))  THEN 

D(K)  =  TSTAR2(I.J,K)  +  U3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J,K))  + 
&  L'5*(TSTAR1(I-1,J,K)  -  TSTAR1(I,J,K))  + 
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&  V2*(TAMB2  -  TSTAR2(I,J,K))  +  V3*(TAMB3  -  TSTAR2(I.J,K)) 

&  +  V5*(TAMB5  -  TSTAR2(IJ,K))  +  W2  +  W3  +  W5  + 

&  X2*(TSTAR2(U,K)**4  -  TAMB2**4)  + 

&  X3*(TSTAR2(I,J,K)**4  -  TAMB3**4)  + 

&  X5*(TSTAR2(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  AND.  (I.EQ.M))  THEN 

D(K)  =  TSTAR2(I.J.K)  +  U3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J,K))  + 
&  U5*(TSTAR1(I-1J,K)  -  TSTAR1(I,J,K))  + 

&  V2*(TAMB2  -  TSTAR2(I,J,K))  +  V5*(TAMB5  -  TSTAR2(I,J,K)) 

&  +  W2  +  W5  +  X2*(TSTAR2(I,J,K)**4  -  TAMB2**4)  + 

&  X5*(TSTAR2(U;K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE 

D(K)  =  TSTAR2(IJ,K)  +  L"3*(TSTAR2(IJ-1.K)  -  TSTAR2(I,J,K))  + 

&  U5*(TSTAR1(I-1,J,K)  -  TSTARI(I.J.K))  + 

&  V2*(TAMB2  -  TSTAR2(I.J.K))  +  V4*(TAMB4  -  TSTAR2(IJ.K)) 

&  +  V5*(TAMB5  -  TSTAR2(I.J.K))  +  \V2  +  W4  +  W5  + 

&  X2*(TSTAR2(U,K)**4  -  TAMB2**4)  + 

&  X4*(TSTAR2(I,J,K)**4  -  TAMB4**4)  + 

&  X5*(TSTAR2(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

END  IF 

RETURN 
END 


:  ft  *  .-;=  *  .-:•.  *  *  *  !>  *  .-;:  *  *  *  *  *  *  .-J:  .-J:  *  *  $  .-;:  *  .•;:  *  $  *  *  *  ftS******  *  .->:  ***********:!:************  *  *  *  *  * 
:  *  *  *  :»: :;-. :;:  *  *  *  tfi  *  >;-.  $  *  *  *  *  *  *  $  *  <-.  $  .•;-.  *  .-;: :;-. :;-.  $  #  *  *  *  *.  $  :;■.  *  *  *  <-.  *  $  &  $  j^  jjt  g  *  *  *  #  *  #  *  *  .*.  *  #  *  *  $  *  $  *  #  $  #  *  # 

SUBROUTINE  TRIDAG  IS  A  SUBROUTINE  FOR  SOLVING  A  SYSTEM 
OF  LINEAR  SIMULTANEOUS  EQUATIONS  HAVING  A  TRIDIAGONAL 
COEFFICIENT  MATRIX.  THE  EQUATIONS  ARE  NUMBERED  IF  THROUGH 
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L,  AND  THEIR  SL'BDIAGONAL,  DIAGONAL,  AND  SUPER  DIAGONAL 
COEFFICIENTS  ARE  STORED  IN  THE  ARRAYS  A,  B.  AND  C.  THE 
COMPUTED  SOLUTION  VECTOR  TEMP(IF)...TEMP(L)  IS  STORED 
IN  THE  ARRAY  TEMP. 

SUBROUTINE  TRIDAG 

DIMENSION  A(  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30).  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(    30.   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30,   30.   30) 

REAL  TINTT.  TSTAR1.  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX,  LY.  LZ,  DELX,  DELY.  DELZ 

REAL  A.  B.  C,  D,  BETA.  GAMMA 

REAL  FLUX  I,  FLUX2.  FLUX?,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1.  TAMB2.  TAMB3.  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4,  U5.  116 

REAL  BIOl.  BI02.  BI03,  BI04.  BI05.  BI06 

REAL  SIG1.  SIG2.  SIG3.  SIG4.  SIG5.  SIG6 

REAL  Ul,  U2.  U3.  U4.  U5 

REAL  VI.  V2.  V3.  V4.  V5,  V6 

REAL  Wl,  \V2,  W3,  W4,  W5,  W6 

REAL  XI.  X2.  X3.  X4.  X5,  X6 

REAL  EPS1.  EPS2,  EPS3.  EPS4.  EPS5,  EPS6 

REAL  QDOT,  GEN.  Yl 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 

REAL  SOLARI.  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

REAL  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1,  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 

REAL  SAC  I,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN.  ECLIPS,  Ql,  Q2.  Q3.  PERIOD.  PI 
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REAL  PI.  P2,  P3.  P4,  P5.  P6 

INTEGER  I.  J.  K,  M,  X.  P,  IF,  L,  IFPI,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOL'T 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

COMMON  LX,  LY,  LZ.  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N,  P,  IF,  L.  IFPI,  LAST 

COMMON  A,  B,  C,  D.  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2,  TAMB3.  TAMB4.  TAMB5,  TAMB6 

COMMON  HI,  H2.  H3.  H4,  H5,  H6 

COMMON  BIOl.  BI02,  BI03,  BI04.  BI05.  BI06 

COMMON  SIG1.  SIG2,  SIG3.  SIG4.  SIGS.  SIG6 

COMMON  L'l,  U2,  U3,  U4,  U5 

COMMON  VI,  V2.  V3,  V4.  V5,  Y6 

COMMON  Wl,  W2,  W3,  W4,  \V5,  W6 

COMMON  XI.  X2,  X3.  X4.  X5.  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1,  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT.  GEN.  Yl 

COMMON  TIMEO.  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST.  ALT,  FE,  FA.  ML' 

COMMON  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTHS,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1,  3AC2,  SAC3,  SAC4,  SACS.  SAC6 

COMMON  SUN,  ECLIPS,  QI,  Q2,  Q3,  PERIOD,  PI 

COMMON  PI,  P2,  P3,  P4,  PS,  P6 

COMPUTE  INTERMEDIATE  ARRAYS  BETA  AND  GAMMA 
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BETA(IF)  =  B(IF) 
GAMMA(IF)  =  D(IF)  BETA(IF) 
IFP1  =  IF  +  1 
DO400Q=IFPl,  L 

BETA(Q)  =  B(Q)-  A(Q)*C(Q-1);BETA(Q-1) 
GAMMA(Q)  =  (  D(Q)  -  A(Q)*GAMMA(Q-1)  )  BETA(Q) 
400  CONTINUE 


*       COMPUTE  FINAL  SOLUTION  VECTOR  TEMP 

ft 

TEMP(L)  =  GAMMA(L) 
LAST  =  L  -  IF 
DO410G=l.  LAST 
Q  =  L  -  G 

TEMP(Q)  =  GAMMA(Q)  -  C(Q)*TEMP(Q  +  1) 'BETA(Q) 
410   CONTINUE 
RETURN 
END 


THIS  SUBROUTINE  WILL  BE  USED  FOR  PRINTING  THE  NODE 
TEMPERATURES 

SUBROUTINE  OUTPUT 

DIMENSION  A(  30),  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(    30.   30,   30),  TSTAR1(  30,   30,   30) 
DIMENSION  TSTAR2(  30.    30,   30) 

REAL  TINIT.  TSTAR1.  TSTAR2,  T.  TEMP 
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REAL  CP,  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX,  LV,  LZ,  DELX,  DELY,  DELZ 

REAL  A.  B.  C.  D.  BETA.  GAMMA 

REAL  FLUX1,  FLUX2.  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI.  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  B106 

REAL  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul,  U2,  L'3,  L'4.  U5 

REAL  VI,  V2,  V3,  V4.  V5,  V6 

REAL  WI,  W2.  W3,  W4,  W5,  \V6 

REAL  XI.  X2.  X3.  X4.  X5,  X6 

REAL  EPS1,  EPS2.  EPS3,  EPS4.  EPS5.  EPS6 

REAL  QDOT.  GEN,  VI 

REAL  CTIME.  TIMEO.  TIME1 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  ML" 

REAL  SOLAR1.  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5.  SOLAR6 

REAL  EARTH  1.  EARTH2,  EARTH3.  EARTH4.  EARTH5.  EARTH6 

REAL  ALBED1.  ALBED2.  ALBED3.  ALBED4.  ALBED5,  ALBED6 

REAL  ABS1.  ABS2,  ABS3,  ABS4,  ABS5.  ABS6 

REAL  SAC1,  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 

REAL  SUN,  ECL1PS.  Ql.  Q2.  Q3.  PERIOD,  PI 

REAL  PI.  P2.  P3.  P4.  ?5,  P6 

INTEGER  I.  J.  K.  M.  N,  P,  IF,  L.  IFP1,  LAST.  G.  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3.  VAL,  NOUT 

COMMON  UNIT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

COMMON  LX.  LY,  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST 

COMMON  A,  B,  C,  D,  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1.  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2.  TAMB3,  TAMB4.  TAMB5,  TAMB6 
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COMMON  HI,  H2,  H3.  H4,  H5,  H6 

COMMON  BIOl.  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1.  SIG2,  SIG3.  SIG4,  SIG5,  SIG6 

COMMON  L'l,  U2,  U3,  L'4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  W2,  W3,  W4,  \V5,  W6 

COMMON  XI,  X2,  X3,  X4,  X5,  X6 

COMMON  COUNT,  FREQ.  ANSI,  ANS2,  ANS3 

COMMON  EPS1.  EPS2,  EPS3.  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN,  Yl 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH.  RE.  D1ST.  ALT,  FE,  FA,  ML' 

COMMON  SOLAR  1,  SOLAR2.  SOLAR3,  SOLAR4.  SOLAR5,  SOLAR6 

COMMON  EARTH  1.  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1.  ALBED2.  ALBED3,  ALBED4.  ALBED5.  ALBED6 

COMMON  ABS1.  ABS2.  ABS3.  ABS4,  ABS5,  ABS6 

COMMON  SAC1.  SAC2.  SAC3.  SAC4,  SAC5,  SAC6 

COMMON  SUN.  ECLIPS.  Ql.  Q2.  Q3.  PERIOD.  PI 

COMMON  PI.  P2.  P3,  P4.  P5.  P6 

••  THE  USER  CAN  PRINT  OUT  THE  TEMPERATURES  AT  SELECTED 

••  NODES.  IF  OTHER  NODES  ARE  DESIRED.  THEN  THE  USER  MAY 

b  CHANGE  THE  WRITE'  AND   PRINT'  STATEMENTS  TO  THE 

*  DESIRED  NODES. 

IF(TIME  .NE.  DELT)  GO  TO  500 

PRINT* 

WRITE(1,*)'   TIME(SEC)       (6,1,11)      (6,6,)      (1,6,6)' 

WRITE(1,*)  '  ' 

500  WRITE  (1,501)  TIME,  T(  6,  1.  11),  T(  6,  6,  6),  T(  1,  6,  6) 

501  FORMAT(1X.F8.0,4X,FS.3,4X,F8.3,4X,F8.3) 
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THE  USER  CAN  ALSO  HAVE  ALL  NODE  TEMPERATURES  PRINTED 

*  OUT.  IF  A  PRINTOUT  OF  ALL  PLANES  AND  OR  ALL  NODES  IS 

*  NOT  REQUIRED,  THEN  THE  DO  LOOPS  MAY  BE  CHANGED  TO 

*  ACCOMODATE  THE  USER'S  NEEDS. 

WRITE(6,*)  DO  YOU  WANT  K-PLANE  PRINTOUT?  (FOR  YES,  ENTER' 

\VRITE(6,*)  ANSI  AS  1;  FOR  NO  ENTER  ANSI  AS  0.)' 

READ(6,*)  ANSI 

IF(ANS1  .NE.  1)  GO  TO  699 

WRITE(2.600)  TIME(SEC)  =  ',TIME 
600   FORMAT(A12,F12.3) 

DO  605  K  =  1,P 

WRITE(2,*)  TEMPERATURE  DISTRIBUTION  ON  PLANE  :' 

WRITE(2,610)  'K  =  \K 

WRITE(2.-:)  '***********************************' 

610   F0RMAT(1X,A3,I2) 

\VRITE(2.620)  ((T(I.J.K),  J=  l.N),  I  =  l.M) 
620   F0RMAT(1X.F6.1,1X.F6.1.1X,F6.1,1X,F6.1.1X,F6.UX,F6.1,1X,F6.1, 
6c  1X.F6.1,1X,F6.1.1X.F6.1.1X.F6.1) 

605   CONTINUE 

699  WRITE(6,:;:)  DO  YOU  WANT  J-PLANE  PRINTOUT?  (FOR  YES,  ENTER' 
WRITE(6,*)  ANS2  AS  1;  FOR  NO  ENTER  ANS2  AS  0.)' 

READ(6,*)  ANS2 

IF(ANS2  .NE.  l)GOTO  799 

WRITE(3,700)  TIME(SEC)  =',TIME 

700  FORMAT(A12,F12.3) 
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DO705J=l,N 

* 

WRITE(3,*)  TEMPERATURE  DISTRIBUTION  ON  PLANE  :' 

WRITE(3,710)  'J  =  '.J 

\V  R I T  F  C\  '•')  '  *  *  *  *  *  *  *  *  *  *  *  *  *  if~  *  *  *  *  *  *  *  *  *  ****  *  *  *  *  *  *  *  * ' 

710  FORMAT(lX,A3,I2) 

WRITE(3,720)((T(I.J,K),  I=1,M),  K  =  P,1,-1) 
720   FORMAT(lX,F6.1,lX.F6.1,lX.F6.1,lX,F6.1,lX,F6.1.1X,F6.1.1X,F6.1, 
&  1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1) 

705   CONTINUE 

799   WRITE(6,*)  DO  VOL"  WANT  I-PLANE  PRINTOUT?  (FOR  YES.  ENTER' 
WRITE(6,*)  ANS3  AS  1;  FOR  NO  ENTER  ANS3  AS  0.)' 
READ(6,*)  ANS3 
IF(AXS3  .NE.  DGOTO  S99 

WRITE(4,800)  TIME(SEC)  =',TIME 
S00   FORMAT(A12,F12.3) 

DO  S05  I=1,M 

WRITE(4,*)  TEMPERATURE  DISTRIBUTION  ON  PLANE  :' 

WRITE(4,810)  I  ='.I 

WRITE(4,:::)  •*****»***•*****»************•******' 

810   F0RMAT(1X,A3,I2) 

WRITE(4,820)((T(IJ,K),  J=1,N),  K  =  P,1,-1) 

820   F0RMAT(1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.UX,F6.1,1X,F6.1, 

&  1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1) 
* 

805  CONTINUE 

* 

*       REINITIALIZING  THE  COUNTER  TO  ZERO 
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899  COUNT  =  0 

RETURN 
END 

f-  *  *  *  *  *  *  *  *;.  *  *  *  *  *  *  *  *  *  *  <I  *  <-.  #  *  $  *  *  *  ***>«•.+.****  I":  *  #  *  *  *  *  &  *  *  *  *  *  *  i:  *  *  *  *  *  &  *  #  *  *  #  «■-  *  $  *  *  *  *  jjt 
:!;  *  .•;-.  :<; :;-. :'-.  .-■: :;-. :;-.  *  jjs *  .•;-.  .•<-. .-;-.  *  *  *  *  #  :;-.  £  *  fc .-;-.  $  *  :;-.  *  >>:  *■■  &  >:-.  «  *  *  *  *  *  i;.  *  i.:  *  $  *  *  *  *  *  *  *  *  *  *  *  #  *  $  #  *  *  *  *  *  *  -•;-.  *  *  *  *  * 
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SUBROUTINE  VALID 

DIMENSION  A(  30),  B(  30).  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(30,  30,  30) 
DIMENSIONS   30.   30,   30),  TSTAR1(  30,   30.   30) 
DIMENSION  TSTAR2(  30,    30.   30) 

REAL  UNIT,  TSTAR1.  TSTAR2.  T,  TEMP 

REAL  CP.  Kl.  RHO,  R.  Rl.  R2.  TIME,  DELT 

REAL  LX.  LY,  LZ.  DELX.  DELY.  DELZ 

REAL  A.  B.  C,  D.  BETA.  GAMMA 

REAL  FLUX1.  FLUX2.  FLUX3.  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1.  TAMB2.  TAMB3.  TAMB4,  TAMB5.  TAMB6 

REAL  HI,  H2.  H3.  114.  115.  H6 

REAL  BIOl.  BI02.  BI03.  BI04.  BIOS,  BI06 

REAL  SIG1.  SIG2.  SIG3.  S1G4.  SIG5.  SIG6 

REAL  Ul.  U2.  U3,  U4,  U5 

REAL  VI,  Y2.  V3,  Y4.  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  W6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REALQDOT,  GEN,  Yl 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 

REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLARS,  SOLAR6 

REAL  EARTH  1,  EARTH2.  EARTH3,  EARTH4,  EARTHS.  EARTH6 

REAL  ALBED1.  ALBED2,  ALBED3.  ALBED4,  ALBEDS,  ALBED6 
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REAL  ABS1.  ABS2.  ABS3,  ABS4,  ABS5.  ABS6 
REAL  SAC1,  SAC2.  SAC3.  SAC4.  SAC5,  SAC6 
REAL  SUN,  ECLIPS,  Ql.  Q2,  Q3,  PERIOD,  PI 
REAL  PI,  P2,  P3.  P4,  P5,  P6 

INTEGER  I,  J,  K.  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

COMMON  LX.  LY.  LZ.  DELX,  DELV,  DELZ 

COMMON  I.  J.  K.  M.  N,  P.  IF.  L.  IFP1.  LAST 

COMMON  A.  B.  C.  D.  BETA,  GAMMA.  G,  Q 

COMMON  FLUX1,  FLUX2.  FLUX3.  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMBI,  TAMB2.  TAMB3.  TAMB4.  TAMB5,  TAMB6 

COMMON  HI.  H2.  H3.  H4,  H5,  H6 

COMMON  BIOl.  BI02.  BI03.  BI04,  BI05,  BI06 

COMMON  SIG1.  SIG2.  SIG3,  SIG4.  SIG5.  SIG6 

COMMON  11.  U2.  U3,  L'4,  U5 

COMMON  VI,  V2.  V3.  V4,  V5,  V6 

COMMON  \V1,  W2,  \V3,  W4,  \V5,  W6 

COMMON  XI,  X2.  X3,  X4,  X5.  X6 

COMMON  COUNT.  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  EPS1.  EPS2.  EPS3.  EPS4.  EPS5,  EPS6 

COMMON  QDOT.  GEN.  Yl 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 

COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 

COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 

COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC1.  SAC2.  SAC3.  SAC4,  SAC5.  SAC6 

COMMON  SUN,  ECLIPS.  Ql,  Q2,  Q3,  PERIOD,  PI 
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COMMON  PI,  P2.  P3,  P4.  P5,  P6 

*  VARIOUS  NODES  WERE  SELECTED  TO  SAMPLE  TEMPERATURE 

*  DIFFERENCES.  THE  USER  CAN  CHANGE  THE  SELECTED  NODES 

*  IF  DESIRED.  IF  THE  USER  CHANGES  THE  SELECTED  NODES. 

*  THE  NODES  SELECTED  IN  PROGRAM  EXPLICIT  AND  DISTANCES 

*  CHOSEN  IN  PROGRAM  VALID  SHOULD  BE  ADJUSTED  ACCORDINGLY 

TDIFB1  =  T(  1,  6,  6)-TINIT 
TDIFB2  =  T(  6,  6,11) -TIMT 
TDIFB3  =  T(  6,  1,  6)-  TINTT 

ft 

IF(TIME  .NE.  DELT)  GO  TO  920 

PRINT* 

WRITE(5,*)  TIME(SEC)    TDIFB1      TDIFB2      TDIFB3' 

WRITE(5,*)  ' ' 

920   WRITE  (5.930)  TIME.  TDIFB1,  TDIFB2.  TDIFB3 
930    FORMAT! IX. F8.0.3X.F7.3.3X.F7.3,3X.F7.3) 

*  REINITIALIZING  THE  COUNTER  TO  ZERO 

COUNT  =  0 

RETURN- 
END 

*  *  ft  ft  ft  *  *  *  *  *  ft  *  *  *  *  ft  ft  *  ft  *  ft  *  *  ft  ft  *****  ft  *  ft  *  ft  ft  ft  *  *  ft  ft  ****************  ft  *  *  *  *  *  #  ******  * 
ft  .-;: ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 
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APPENDIX  E 
PROGRAM  VALID 

PROGRAM  VALID 

* 

*  VALIDATION  PROGRAM 

* 

*  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  VALIDATE  THE 

*  TEMPERATURES  OBTAINED  BY  THE  EXPLICIT  AND  BRIAN 

*  PROGRAMS.  CONDITIONS  USED  IN  THE  VALIDATION  PROCESS 

*  ARE  A  CONSTANT  SURFACE  HEAT  FLUX  ON  THE  LEFT  FACE 

*  AND  ADIABATIC  CONDITIONS  ON  ALL  OTHER  SURFACES. 


*  THIS  PROGRAM  PROVIDES  THE  CLOSED-FORM  SOLUTION  OF 

*  TRANSIENT  HEAT  CONDUCTION  IN  A  SEMI-INFINITE  SOLID. 

*  THE  CLOSED-FORM  SOLUTION  FOR  CONSTANT  SURFACE  HEAT 

*  FLUX  IS  FROM  "INTRODUCTION  TO  HEAT  TRANSFER"  BY 

*  INCROPERA  AND  DEVVITT.  THE  RATIONAL  APPROXIMATION  FOR 

*  THE  ERROR  FUNCTION  IN  THE  CLOSED-FORM  SOLUTION  IS  FROM 

*  HANDBOOK  OF  MATHEMATICAL  FUNCTIONS"  EDITED  BY 

*  ABRAMOWTTZ  AND  STEGUN. 

* 

REAL  A1,A2,  A3,  A4,  A5,  B,  C,  D,  P,  VI,  V,  Wl,  W,  PI 

REAL  TDIFV,  FLUX,  ALFA,  K,  RHO,  CP,  TIME,  DELT,  Y,  DELY,  ERRFC 

INTEGER  COUNT,  FREQ 
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*  THE  USER  WILL  READ  IN  PARAMETERS. 

WRITE(v)  'ENTER  FLUX.' 

READ(v )  FLUX 

WRITE(V)  ENTER  K,  THE  THERMAL  CONDUCTIVITY.' 

READ(*,*)  K 

WRITE(*,*)  ENTER  RHO,  THE  MATERIAL  DENSITY.' 

READ(V)  RHO 

WRITE(V)  ENTER  CP,  THE  SPECIFIC  HEAT.' 

READ(*,*)  CP 

WRITE(*,*)  ENTER  Y,  THE  DISTANCE  IN  THE  Y  DIRECTION.' 

READ(*,*)  Y 

WRITE(*,*)  ENTER  DELY.  THE  INCREMENT  IN  THE  Y  DIRECTION.' 

READ(V)  DELY 

WRITEPV:;)   ENTER  FREQ,  THE  NUMBER  OF  TIME  STEPS  BETWEEN" 

WRITE(::'.::'}  'SUCCESSIVE  PRINTINGS  OF  TIME  AND  TDIFV.' 

READ(*,*)  FREQ 

■       CONSTANTS  USED  THROUGHOUT  THE  PROGRAM 

•:       NOTE:  VALUES  FOR  Al.  A2.  A3.  A4,  A5.  AND  P  ARE  FROM 
"HANDBOOK  OF  MATHEMATICAL  FUNCTIONS". 

Al  =  0.254829592 
A2  =  -0.2S4496736 
A3  =   1.421413741 
A4  =  -1.453152027 
A5  =   1.061405429 
P  =  0.3275911 
PI  =  3.141592654 
TIME  =  0.0 
COUNT  =  0 

*  CALCULATION  OF  CONSTANTS  USED  THROUGHOUT  THE  PROGRAM 


*  NOTE:  EQUATIONS  FOR  ALFA,  B,  C,  D.  AND  DELT  ARE  FROM 

*  "INTRODUCTION  TO  HEAT  TRANSFER'.   EQUATIONS  FOR 

*  VI  AND  Wl  ARE  FROM  "HANDBOOK  OF  MATHEMATICAL 

*  FUNCTIONS". 


* 


* 


ALFA  =  K  (RHO*CP) 

B  =  2*FLUX  K*SQRT(ALFA  PI) 

C  =  FLUX*Y/K 

D  =  Y**2/(4*ALFA) 

DELT  =  0.125*(DELY**2)/ALFA 

VI  =  P*Y  (2*SQRT(ALFA)) 

Wl  =  V  <2*SQRT(ALFA)) 

PRINT  STATEMENTS  FOR  VARIOUS  PARAMETERS  USED 
IN  PROGRAM 

PRINT* 
PRINT- 
WRITE!*.*)   FLUX  = '.FLUX 
WRITECv)   K  =  '.K 
WRITE(*,*)   RHO='.RHO 
\VRITE(*,*)  CP=',CP 
WRITE(*,*)  Y=',Y 
WRITE(*,*)  DELY  =  \DELY 
WRITE(*,*)  DELT=  \DELT 
W  R I  TE(  *  *)  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **********  *  *  *  *  *  *  *  *  ******  *  *****<-.*******' 

PRINT* 
PRINT* 


*       CALCULATION  OF  TDIFV 
* 


NOTE:  EQUATIONS  FOR  V.  W,  AND  ERRFC  (COMPLEMENTARY 
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*  ERROR  FUNCTION)  ARE  FROM    HANDBOOK  OF 

*  MATHEMATICAL  FUNCTIONS".  THE  EQUATION  FOR  TDIFV 
IS  FROM    INTRODUCTION  TO  HEAT  TRANSFER". 

10  COUNT  =  COUNT  +  1 
TIME  =  TIME  +  DELT 
V  =   1/(1  +  VISQRT(TIME)) 
W  =  Wl  SQRT(TIME) 

ERRFC  =  ((A1*V)  +  (A2*V**2)  +  (A3*V**3)  +  (A4*V**4)  + 
&  (A5*V**5)  )  *  EXP(-W**2) 

TDIFV  =  B*SQRT(TIME)*EXP(-D  TIME)  -  C*ERRFC 

*  PRINTING  TIME  AND  TDIFF 

IF(TIME  .NE.  DELT)  GO  TO  30 
WRITE(*,*)  TIME(SEC)    TDIFV 
WRITE(-.;::)  ' • 

PRINT  20,  TIME.  TDIFV 
20   FORMAT(lX.F8.3.3X.F6.3) 

30   IF(COUNT  .NE.  FREQ)  GO  TO  100 

PRINT  40.  TIME.  TDIFV 
40    FORMAT(lX.FS.3.3X.F6.3) 

•:       INITIALIZING  THE  COUNTER  TO  ZERO 

50   COUNT  =  0.0 
<■• 

*  NOTE:  THE  VALIDATION  TIME  PERIOD  WAS  ARBITRARILY  TAKEN 

*  AS  3600  SECONDS  (1  HOUR). 

100   IF(TIME  .LE.  3600)  GO  TO  10 

ft 

STOP 
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